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Commodore 64: 
Basic Extension 


ür G -J6 /116 bindet Ihre Assemblerroutinen mit einem Be- 

fehlswort in das Basic ein. Schicken Sie uns Ihre 

Assemblerroutinen, für eine „Compute mit“- 

l. "ohate Bibliothek, damit sich unsere Leser ihr ganz 
persönliches Basic schaften können! 

Seite 38 Seite 22 








Commodore stellte im Mai den 
neuen C-64 vor. 


- Was ist eigentlich neu, außer 
dem Gehäuse? 


Dem neuen C-64 legt Commodo- 
re ein neues Betriebssystem bei. 


- Wie leistungsfähig kann ein 
Betriebssystem mit Fenster- 
technik auf dem C-64 sein? 


Seite 3 
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Die nächste Ausgabe von 


Compute mit 


liegt wieder ab 
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COMMODORE-NEUHEITEN 


Endlich ist das Geheimnis gelüftet: 
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Überraschend hatte Commodore eine Ver- 
änderung des C-64 angekündigt. Neugie- 
rig haben wir uns gefragt, worin nun die 
eigentlichen Veränderungen liegen. Der 
erste Eindruck: der C-64 ist schlanker ge- 
worden. Das neue Design erinnert etwas 
an den PC 128, jedoch ohne 10’er-Tastatur. 
Das alte Gehäuse war ja häufiger Anlaß für 
Spott, Butterbrotschachtel hieß es, oder 
man sprach liebevoll von dem Käfereffekt. 
Nun sind die Zeiten vorbei: der C-64 hat 
sich das gängige „Slim-line“-Design der 
heutigen Computergeneration zu eigen 
gemacht. Allerdings: ganz so ergono- 
misch wie der PC 128 ist der neue C-64 
nicht. Die Handballen müssen sich noch 
immer etwas krümmen, es fehlt vorne et- 
was Länge und die Tastatur ist immer 
noch etwas schräg, kleine Reminiscensen 
an den alten C-641 

Gibt es aber technische Neuerungen, ist die 
nächte Frage. Schraubt man das Gehäuse 
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auf, wird man von einer wunderschönen 
Ohriginalplatine angelacht, wie wir sie 
bisher von allen unseren Oldtimermodel- 
ien her gewöhnt sind. Lediglich der VIG- 
Chip und der /0-6526 tragen neue Seri- 
ennummern, ohne jedoch auf eine ent- 
schiedene Veränderung schließen zu las- 
sen. Die einzige wirkliche Veränderung 
besteht in der wesentlich verbesserten 
Abschirmung der Platine. Weitere Verän- 
derungen wurden nicht vorgenommen, 
um die Kompatilität zu den alten Geräten 
100 %ig zu gewährleisten. 

Tatsächlich aber vermissen wir kleine Ver- 
besserungen in Bereichen, die die Kompa- 
tilität in keiner Weise gefährdet hätten. So 
muß sich der User nach wie vor einen Re- 
settaster selbst stricken. Auch eine Be- 
triebssystemumschaltplatine hätte inte- 
griert sein können. Der obligatorische Ei- 
genbau bleibt auch hier nicht erspart, was 
jedoch durch das neue Gehäusekonzept 
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erheblich erschwert wird. Der Raum ist so 
eng, daß für eine Umschaltplatine zumin- 
dest ein Teil des Kühlblechs herausgesägt 
werden muß, 

Eine weitere wichtige Neuerung für den C- 
64-Käufer besteht in einer besonderen 
Beigabe. Commodore hat nun endgültig 
die Rechte an einem neuen Betriebssy- 
stem erworben, das erstmalig auf der 
letztjährigen GES-Messe in Las Vegas vor- 
‚gestelltwurde, und legt dieses jedem neu- 
en Gerät als Zugabe auf Diskette bei. 
Dieses neue Betriebssystem, GEOS ge- 
nannt, hat 2 entscheidende Merkmale. Es 
bietet dem Benutzer eine grafische Benut- 
zeroberfläche ähnlich dem AMIGA: Pull- 
Down-Menü mit Piktogrammen und Soft- 
wareauswahl per Joystick und Maus. 
Zweiter Vorteil von GEOS ist ein imple- 
mentierter Floppybeschleuniger, der un- 
gefähr 10-fache Geschwindigkeit erreicht. 
Der ist allerdings auch unbedingt erfor- 
derlich, da das Betriebssystem in Modu- 
len vorliegt, die immer wieder von der Be- 
triebssystemdiskette nachgeladen wer- 
den müssen. Tatsächlich bekommt der C- 
64 mit GEOS etwas von den Vorteilen der 
16-Bitter eingehaucht und wird auch in ei- 
nigen Funktionen erstaunlich schnell (vor 
allem wenn es darum geht, Grafik nachzu- 
laden). Einige Nachteile sollen nicht ver- 
schwiegen werden: innerhalb von GEOS 
ist kein Basic-Editor integriert. Man muß 
GEOS verlassen, wenn man ins Basic ge- 
langen will, kann jedoch durch.einen ein- 
fachen Druck auf die RESTORE-Taste wie- 
der in das GEOS gelangen. Ferner ist be- 
kannt, daß die ersten Geräte nur mit der 
amerikanischen Version von GEOS ausge- 
rüstet werden. Die deutsche Version ist 
noch in Arbeit. Insgesamt jedoch ist GEOS 
eine fantastische Erweiterung, und es 
kommt jetzt darauf an, daß genügend Pro- 
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grammierer sich damit beschäftigen —ein 
GEOS-Basic wäre dann auch denkbar. Auf 
der GEOS-Diskette befinden sich schon 2 
GEOS-Programme: GEOwrite und GEO- 
paint, über die wir das nächste Mal be- 
richten werden. 





Als weitere Neuheiten kündigt Commodo- 
re sowohl für den C-64 alsauch für den PC 
128 Speichererweiterungen an. Der C-64 
soll auf 512-KB und der PC 128 auf 640 KB 
aufgerüstet werden können. 
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Pascal Merle vor seiner Einrichtung zur Programmierung eines Zielprozessors (bester JUGEND-FORSCHT-Teilnehmer 


im Bereich Informatik) 


Vom 8. bis 14. Mai fand der 21. Bundeswett- 
bewerb JUGEND FORSCHT in Saarlouis statt. 
Am Montag wurden bereits die Preisträger 
bekanntgegeben. Auffallend bei der Preis- 


Sommerferien im Computercamp 


Für alle, die ihre Sommerferien mit einem 
Computerkurs verknüpfen wollen, bietet 
COMPUCAMP wieder Ferien im Compu- 
tercamp an. 

Das Angebot richtet sich an Jugendliche 
und auch an Kinder. Der Akzent dieses An- 
gebots liegt dabei nicht einseitig auf „Ler- 
nen“, auch die Freizeit soll dabei nicht zu 
kurz kommen. Nicht Bildschirmfanatiker 


Foto: Ford-Werke AG 


vergabe war die Vielzahl der Arbeiten, die 
sich des Computers als wissenschaftli- 
ches Hilfsmittel bedienten. Das beste Bei- 
spiel hierfür ist wohl die Arbeit des Bun- 


sind also gefragt, sondern alle, die auch 
Spaß an Windsurfen, Wasserski und Ten- 
nis haben. Zum Programm gehören auch 
Ausflüge zu Firmen wie COMMODORE 
und Fischertechnik. 

Die Computerkurse sind weit gestaffelt - 
von LOGO, über Basic bis zur Maschinen- 
sprache. Für jeden wird also etwas pas- 
sendes angeboten. Camp finden statt in 
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dessiegers für Biologie, Thomas Dick (17). 

In einer Computersimulation entwickelte 
er den Aufbau eines Enzyms, über dessen 
Molekularstruktur noch wenig bekannt 
ist. Für diese Arbeit, die bereits internatio- 
nale wissenschaftliche Anerkennung ge- 
funden hat, erhielt Thomas außerdem den 
Sonderpreis des Bundespräsidenten, 
Auch bei vielen anderen Arbeiten im Be- 
reich Physik und Chemie spielten Compu- 
ter eine herausragende Rolle. Um so er- 
staunlicher war es, daß im Bereich Mathe- 
matik/Informatik kein erster Preis verge- 
ben wurde. Den 2. Preis erhielt der erst 
14jährige Pascal Merle für ein Computer- 
programm in der höheren Programmier- 
sprache „C“, das ein anderes C-Pro- 
gramm in Maschinensprache übersetzt, 
die ein bestimmter Zielprozessor (TMS 
YYxxx) versteht. 

Viele Arbeiten beschäftigten sich auch mit 
unserer natürlichen Umwelt und deren 
Schädigung. Dies veranlaßte Ford-Gene- 
raldirektor Daniel Goeudevert zu der Be- 
merkung: „Ich verstehe auch, daß viele 
junge Leute vom Aussterben ganzer Tier- 
gattungen zum Beispiel mehr beunruhigt 
sind, als sie vom technologischen Fort- 
schritt begeistert sind. Diesen Wertewan- 
del müssen wir in unserer Produktent- 
wicklung berücksichtigen, Denn techni- 
scher Fortschritt ist kein Selbstzweck, 
sondern dient stets den menschlichen Be- 
dürfnissen und den gesellschaftlichen 
Notwendigkeiten‘ 

Wir schließen uns an dieser Stelle den 
zahlreichen Gratulanten an und wün- 
schen den Siegern alles Gute für Ihre Zu- 
kunft. 





Schloß Dankern (Emsland), Tönning 
(Nordsee) und Veltishof am Titisee im 
Schwarzwald. 

Compubamp GmbH, Goßlersir. 21, 

2000 Hamburg 55, Tel.: 040/86 1255 
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r den VG 20 


MAD RUSH 


TS LTE | Poke 46.20: cıR 





In bester Formel 1-Artmuß ein Radfahrer | kann man auf Ölpfützen zur Seite wegrut- 
durch einen Straßenkurs gesteuert wer- | schen. Das Spiel wird laufend schneller - 
den, ohne gegen die auftauchenden Hin- | wer 30 Meilen schafft ist schon ein Renn- 
dernisse zu stoßen: Bäume, Olfässer, Kak- | profil 
teen, Palmen und Sträucher, Außerdem | Auf geht's! 


“ 


programme 


| Zum Programmaufbau: 





Das Programm besteht aus 5 Vorprogram- 
men und einem Hauptprogramm. Nach- 


dem alle Vorprogramme einzeln abgetippt 
und abgespeichert wurden, gibt es die 
Möglichkeit, sie zu einem einzigen Vorpro- 


gramm zusammenzufassen: 


1. Man lädt alle Vorprogramme einzeln 
und startet auch jedes für sich. 


gramm ab. 


2. Dann gibt man ein: POKE 45,230: 
3. Man speichert es nun als ein Vorpro- 


Beim Abtippen ist darauf zu achten, daß 
keine Veränderungen am Programm vor- 


genommen werden, da das Programm 


sonst aussteigen kann. 





REMIS 
REM# MAD RUSH * 

REM#+ * 

REM#+ 178& BY * 

REM#+ HEINZ KROGS #* 

REM#+ NEUE REIHE 24 # 

REM* 4795 BOKE * 
REM 
PRINTCHRE (14) "{CLEAR SPACESI=AD—-_USH" 
PRINT" TFPACES Ze APRINT"IBOHRZ SPA 
CE4F>ATASTSPACEIREADING” 


SSENBUNMO 





10 FORA=7000T07879: RERADB: POKEA ,B=sl=C+B:=N - 


EXT=PRINTCHR$ (142) "ICLEAR}" 

11 IFC<>61957THENPRINT"DATASSFARE}FERRÖR" 
END 

12 POKE198,1;FOKE631,131 

100 DATA152,0,189,0,31,157,22,31 

101 DATA1L89,0,151,157,22,151,202,208 
102 DATA241 ,162,0,189,0,30,157,22 

103 DATAS0,189,0,150,157,22,150,202 
104 DATA208,241,199,255,29,141,44,30 
105 DATA189,252,29,141,44,151,199,25%3 
106 DATA29,141,44,150,189,254,29,141 
107 DATA44,31,76,149,26,2,0,0 

108 DATA1,0,32,1,2168,0,15,0 

109 DATAO,0,0,0,0,0,0,Q0 

110 DATAO,0,0,0,0,0,0,0 

111 DATA0,0,0,0,0,0,0,0 

112 DATAO,0,0,0,96,76,96,96 

113 DATA9&,96,76,96, 96,76, 76,96 

114 DATA96,96,76,76,96,96,95,976 . 

115 DATA98,97,96,96,96,96, 76,96 

11& DATA96,76,96,96,96,96,76,96 

117 DATA9&,96,96,96,96,96,76,7& 

118 DATA96,94,96,96,96,96,4,76 

119 DATA9B,97,768,96,96,96,96,9& 

126 DATA96,96,96,96,965, 96, 76,140 

121 DATA18,16,16,112,156,178,178,19& 
122 DATA254 ,124,56,24,24,16,16,16 

123 DATAB,8,8,14,57,77,77,95 

124 DATA127,62,28,24,24,8,89,8 

125 DATA12,26,59,170,234,202, 108,120 
126 DATA120,58,29,13,13,413,5,2 

127 DATA227,211,203,199,205,211,227,227 
128 DATA255, 255,255, 255,259, 255, 255,255 





<115> 
<38> 
£97> 
<201> 
<&9> 
<77> 
<a7% 
<122> 


x&l> 
<a6> 


z255> 
<21> 
KOPF 
x32> 
2251> 
x36> 
2035 
<132> 
<FP3> 
<167> 
<249> 
L6d>r 
69 > 

<70> 

<141> 
<1h4> 
<165> 
<178> 
<167> 
x169> 
<60> 

<182> 
<115> 
<176> 
294> 

<196> 
x5> 

<2297> 
ZA3> 

<215> 
<111r 


129 
139 
1531 
1352 


167 
170 
171 
172 
175 


DATA24,60,1264,254,254,127,127,14 
DATA&O, 124,255, 255,254,174,124,48 
DATAS2,68,92,85,97,83,54,30 
DATA30,92,194,176,176,176,160,54 
DATA24,79,181,174,97,189,92,47 
DATA224,90,1458,104,164,216,116,148 
DATA13,7473747 515, 31,41. 
DATA176,224,192,192,192,224,240,88 
DATA&0, 60,60, 189,255, 255,255,255 
DATA189,60,60,60 ,60,60,60,12& 
DATA? ,24,32,56,63,63,59,53 
DATA224 „24,4,28,252,252, 220,92 
DATAS3,53,53,59,63,63,31,7 
DATA9Z,92,92,76, 124,252, 248,224 
DATABB, 120,126,30,26,24,24,24 
DATA49,56, 249, 248,251 ,255,191,63 
DATA&3,56,56,56,56,56,56,56 


'DATAO,0,0,0,0,0,48,127 


DATA99, 159 ,254,195,127,124,7,0 
DATA240, 159, 255,49, 255, 135,255,120 
DATAO,0,240,255, 143,248 ,207 , 252 
DATAO,0,0,0,240,255,248, 143 


DATAO,0,0,0,0,0,240,158 
DATA7 ,0,0,0,0,0,0,0 
DATA0,0,0,0,0,0,0,0 
DATA240,127,7,0,0,0,0,0 
DATA0,0,0,0,0,0,0,0 
DATA223,253,199,127,7,0,0,0 


DATA253 ,29,249,202,259,124,0,0 
DATA1,7,5,26,111,90,245,174 
DATA192,120,180,2364,84,734,85,174 
DATA173,82,61,06,73,181, 106,13 
DATAF0,244,90,173,234, 168,80, 160 
DATA15,15,7,747474,747 

DATA?24 ,224,192,192,192,192,192,192 
DATA7,7,15,15,31,63,82,0 
DATA192,192,224,224,,240,248,150,0 
DATAS3S4,19,738,54, 75,37, 31,1 
DATA180,168,114,212,165,118,214,224 
DATAO,0,0,2,10,21,19,75 
DATAO,0,0,64,208,90, 104,240 
DATA16,8,6,114,31,15,7,15 
DATAO,12,48,96,108,216,240,224 
DATA25,48,32,64,0,0,0,0 
DATA128,172,94,96,48,48,48,24 
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2246> 
«52> 
<144> 
<25> 
<252> 
<118> 
<245> 
<201> 
<&2> 
CAT: 
<226> 
<187> 
<103> 
22463 
<247> 
xO> 


452 


<239> 
x235> 
x27> 
x148> 
<190> 
x175> 
<125> 
<112> 
<139> 
<114> 
<211> 
x1089> 
“21? 
<231> 
<20> 
<110> 
243} 
<92> 
s14> 
<243> 
SE7Er 
IB> 
273 
xs0> 
2103 > 
xzal> 
2547 
<112> 


Programme 




















174 DATA24,24,24,24,24,24,60,126 <72> 180 DATA248,224 ,240,248,252,192,192,192 <39> 
175 DATA1,3,1,3,7,1,3,7 <158> 181 DATA00,0,0,0,0,0,0,0 <160> 
17& DATAO,128,0,128,192,0,128,192 <2457 182 DATAO,0,0,0,198,229,238,101 <223> 
177 DATA15,3,7,15,31,7,15,51 2547 183 DATAO,255,0,255,32,53,49,32,53,14,32 
178 DATA224,128,192,224,240,192,224 ,240 $173> ‚53,49,32,53,14 <414> 
179 DATAS3,15,31,63,127,3,3,3 <25> 
en ya nen 
O REMMRRRRRERIRIRHFNENN N <“115> 118 DATA #74,169,10, 141,150,27,255,152 <198> 
1 REM# * <98> 117 DATA 27,173,152,27,41,2,240,28 <a3> 
2 REM# MAD RUSH * x39> 120 DATA 255,155,26,255,185,26,255,193 <12> 
3 REM* * <100> 121 DATA 26,255,203,26,255,198,26,169 <144> 
4 REM#* TEIL 2 * <218> 122 DATA 0,141,152,27,255,152,26,169 <17> 
5 REM# #* <102> 123 DATA 254,141,191,26,76,181,26,169 <33> 
& REM <121> 124 DATA 0,141,147,27,169,25,141,148 <232> 
9 PRINTCHR$ (14) "{CLEAR SPACET}\AD-_USH" 125 DATA 27,76,166,25,96,169,32,141 <134> 
PRINT" (SPACETF ——" ; PRINT" {DOHNZ SPA 126 DATA 239,31,189,217,31,201,32,240 <231> 
CE43 -ATASTSPAGE}READING" <219> 127 DATA 3,76,100,25,76,200,25,76 <211> 
10 FORA=66500T05999: READB: POKEA ‚B:C=C+B:N 128 DATA 96,189,17,145,75,16,201,8 <220> 
EXT <29> 127 DATA 240,3,76,44,26,173,150,27 <189> 
i1 PRINT" {CLEARY "CHR$ (142) : IFC< 43189 THE 130 DATA 141,217,31,173,150,27,233,255 <190> 
NPRINT"DATA{SPACE3ERRÜR":END <84> 131 DATA 141,239,31,169,0,141,217,151 <115> 
12 FOKE198,1:POKE631,131 <21> 152 DATA 169,0,141,239,151,255,150,27 <244> 
100 DATA 169,127,141,34,145,189,32,145 <60> 133 DATA 255,150,27,189,150,27,41,4 <197> 
101 DATA 75,128,201,64,240,3,76,89 <107> 134 DATA 240,5,169,0,141,150,27,169 x55> 
102 DATA 26,76,169,26,76,169,6,141 <153> 135 DATA 255,141,34,145,169,255,141,191 <86> 
103 DATA 4,30,169,5,141,14,30,169 <155> 1356 DATA 26,76,0,25,96,96,173,26 <194> 
104 DATA 0,141,4,150,169,0,141,14 x176> 137 DATA 27,201,32,240,7,173,0,30 <112> 
105 DATA 150,173,47,24,141,224,25,178 <200%> 138 DATA 201,6,240,3,76,7,27,169 <146> 
106 DATA 49,24,105,9,141,229,25,255 <54> 137 DATA 32,141 ,26,27,76,30,27,173 <243> 
107 DATA 248,25,255,242,25,1723,49,24 <192> 1430 DATA 0,30,201,6,240,3,76,25 <205> 
108 DATA 141,234,25,172,49,24,105,9 <14> 141 DATA 27,169,7,141,26,27,76,30 <222> 
109 DATA 141,239,25,255,6,24,255,12 <212> 142 DATA 27,169,7,141,0,30,255,246 <1&3> 
110 DATA 26,76,238,26,76,169,0,141 <o> 143. DATA 24,255,9,27,255,28,27,173 <149> 
111 DATA 28,27,96,96,76,96,96,96 <125> 144 DATA 244, 26,201,22,240,3,76,238 <240> 
112 DATA 96,96,96,96,169,4,141,150 <16> 145 DATA 265,169,0,141,246,26,169,0 <196> 
113 DATA 27,255,151,27,173,151,27,41 <21> 146 DATA 141,9,27,76,29,26,96,96 <157> 
114 DATA 2,240,23,206,155,26,206,195 <152> 147 DATA 189,22,150,141,253,29,189,22 <130> 
115 DATA 26,2054,193,26,205,203,26,206 <134> 148. DATA 151,141,252,29,189,22,30,141 <142> 
11& DATA 198,26,169,0,141,151,27,206 <o> 149 DATA 255,29,189,22,31,141,254,29 <185> 
117 DATA 152,26,76,191,26,96,96,76 <194> ENDE DES LISTINGS 
0 REMEEEREEELREEEEEEEee <15> 112 DATA 5,5,5,5,169,32,141,0 <191> 
1 REMe@ @ <208> 113 DATA 30,169,5,141,0,150,255,3 <216> 
2 REM@e MAD-RUSH @ <191> 114 DATA 25,255,9,25,173,3,25,201 <238> 
3 REMe @ <210> 115 DATA 22,240,3,76,0,25,169,0 <183> 
4 REMe TEIL 3 @ <189> 116 DATA 141,3,25,169,0,141,8,25 <114> 
5 REMe@ @ <212> 117 DATA 76,221,25,173,77,23,141,11 <42> 
& REM@BEGERRLLAAERREEE <21> 118 DATA 144,173,77,23,141,12,144,206 <80> 
9 FRINTCHR$(14) "ICLEAR SPACES} AD- _USH": 117 DATA 158,27,173,158,27,201,0,240 <97> 
PRINT" {SPACE&} "SPRINT"{DOHNZ 5PA 120 DATA 3,76,80,25,206,46,25,169 <95> 
CESI-ATASTSPACE3READING" zbl> 121 DATA 15,141,159,27,169,17,141,14 <98> 
10 FORA=#300T06599: READB: POKEA,B=:C=C+B=N 122 DATA 144,206,40,25,206,14,144,76 <83> 
EXT LEROF 123 DATA 191,2534,96,96,96,96,95,94 <171> 
11 PRINT" {CLEAR> "CHR$ (142) 4 IFO< >21418THE 124 DATA 96,96,96,96,96,96, 96,96 <175> 
NPRINT"DATATSPACE}ERROR" SEND 2175> 125 DATA 173,155,26,141,107,25,173,221 <A9> 
12 FOKE198,1:POKE6S1,131 sol» 124 DATA 31,141,154,27,173,154,27,201 <137> 
100 DATA 6,6,6,5,5,5,5,4 <159> 127 DATA 8,240,3,76,137,25,255,155 <60> 
101 DATA 4,4,4,4,4,5,5,5 c134> 129 DATA 26,255,195,26,255,193,264,255 <17> 
102 DATA 6,6,6,6,6,&,6,6 RIFE 127 DATA 198,26,76,153,22,173,154,27 <194> 
103 DATA 7,7,9,8,8,8,8,8 <120> 130 DATA 201,9,240,3,796,96,96,206 <1864> 
104 DATA 9,9,9,8,8,8,8,7 sı2E> 131 DATA 155,24,204,185,26,206,193,24 <140> 
105 DATA 7,7,7,6,5,5,5,5 “200% 132 DATA 206,198,26,76,146,22,96,96 <174> 
105 DATA 5,5,5,5,5,5,5,3 169 > 153 DATA 96,96,169,0,201,22,240,9 <46> 
107 DATA 5,5,5,5,5,5,5,5 <170> 134 DATA 255,167,25,32,64,27,76,166 <7> 
108 DATA 5,5,545,5,5,5,5 s171> 135 DATA 25,169,0,141,167,25,169,149 <151> 
109 DATA 5,5,5,5,35,5+,5,5 <172> 136 DATA 141,147,27,169,25,141,148,27 <191> 
110 DATA 5,5,5,5,5,5,5,5 “173> 137 DATA 964,96,96,9& <198> 
111 DATA 5,5:,55949, 45,0 <174> ENDE DES LISTINGS 
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O REM# ° TEIL4 * 
7 FRINTCHR$ (14) "(CLEAR SPACESYAD-_USH"; 


PRINT" CSA — PRINT" TDOHNZ SpA 


CE43-ATAS{TSPACEFREADING" 

10 FORA=578571059721 READB: POKEA ,B:C=C+B:N 
EXT 

ii FORA=4130T06299: READB: POKEA,B: C=C+B:N 
EXT 

12 PRINT" CCLEAR} "CHRS$ (142) : IFC<>SAP1OTHE 
NPRINT"DATA{SPACEIERROR” SEND 

13 POKE178,1:POKE#S1,131 

100 DATA173,224 ,25,141,239,27 ,255,255 
101 DATA27,76,64,27,96,206,203,26 

102 DATA205,152,26,96,255,203,26,255 

103 DATA152,26,96,96,169,0,141,14 

104 DAFA144,169,191,141,20,3,169,234 

105 DATA141,21,3,76,169,39,141,20 

106 DATAZ,169,25,141,21,3,169,255 ' 

107 DATA141,40,25, 160,255, 141 ,46,25 

108 DATAF6,173,155,26,105,22,141,152 

109 DATN26,76,135,26,96,173,224,25 

110 DATA105,210,141,156,27,173, 156,27 
111 DATA141,155,24,173,156,27,141,185 
112 DATA26,173,156,27,141,198, 26,173 

113 DATA156,27,105,22,141,193,26, 173 

114 DATA156,27,105,22,141,203,26,7& 

115 DATALIB,22,96,227,223,227,225,227 
116 DATAZ30,231,234,2364 ,238,239,230 ,230 
117 DATA234,230,234,231 ,231,230,230,227 
118 DATA227 ,223,223,0,0,223,234,239 





*229> 


“61> 
x<242> 
<209> 


x207> 
<22> 
<101> 
2197 
<F1> 
x1577 
“2217 
<130> 
231? 
<233> 
<28> 
«P1> 


.<43> 


«221? 
<2457 
<12> 

<22> 

<147> 
x169> 
<173> 


programme 


117 DATA238,237 ,236, 230,236, 239,234 ,238 
120 DATA234 ,236,234,239, 231 ,238, 231,236 
121 DATA231 ,234,231 239,250, 239,230, 236 
122 DATAZ30,234, 230,231 ,230,239, 227,238 
123 DATA227 ‚256,227 ,234 ‚227,231 ,227,230 
174 DATA227,239,223,239,223,256,223,234 
125 DATA223,231,223,230,223,227,223,239 
1016 DATA 227,230,230,223,227,223,0,223 
1011 DATA 227,223,234 ,223,227,223,5,5 
1012 DATA 5,5,5,9,5,5,5,35 
1013 DATA 5,5,5,6,6,5,6,6 
1014 DATA 7,7,8,9,9,10,10,11 
1015 DATA 11,11,11 
1016 DATA 
1017 DATA 
1018 DATA 
1019 DATA 
1020 DATA 
1021 DATA 
1022 DATA 
1023 DATA 
1024 DATA 
1025 DATA 
1024 DATA 
1027 DATA 
1028 DATA 
1029 DATA 
1030 DATA 
1031 DATA 
ENDE DES LISTINGS 
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<119> 
i=TeR2 
<200> 
<58> 
<150> 
<247°5 
201 > 
x206> 
Saar 
<54> 
«115> 
<327 
<132> 
i64> 
<13> 
<120> 
x31> 
40% 
a 
<176> 
“«Al> 
IF? 
2267 
Yteiel 
<214> 
<215%5 
<216> 
«2175 
967 
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Teil 5: 


0 FOKEZ4069 „255: POKES64B74,24: PRINT" TCLEA 

R>"3 

9 PRINT"{GREEN>12" 

10 PRINT"S{BLUE>AXSPACES GREENYLMIBLUE 
11 PRINT" {SPACEISTSPACEIGISPÄACEIGTSPACE? 

NO{SPACE2IGISPACE3}GEG" 

12 PRINT"{SPACE2?YGISPACEIGTSPACEIGTSPACE 

ZIGTSPACEIGTSPACEZFIGISPAGEIHG" 

13 PRINT"{SPACE2ISISPACEIIG{SPAGEFIIGEGTE 
PACE23GLSPACE 2IG{SPACEIGG" 

14 PRINT" SPACEISTSPACETIHISPACEIGESPALE 
IG{SPACEZIGTSPACEIGISPACEZIG" 

15 PRINT" SPACEIGSPACESYGISPACEIGTSRACE 
REDYY{BLUE, SPACEIG{SPACEIGGG" 

15 PRINT"{SPAGEII REDYZLNIT"{BLYE 

17 PRINT"{SPACE12 REDI_!HFIBLYE 

18 PRINT"{SPACES GREEN?WIBLUE 

20 PRINT"{SPACEIGGGTSPACE GREENFKIBLUEIG 
LSPACE3IG{SPACE2IGESLSPACEZIBTSPACEIG" 
21 PRINT" {SPACEIGBISPAGEZIGTSPALEIGTBLACK 
IRSI{BLUE SPACEIBISPACEIGTSPACESIGTERACE} 
g" 

22 PRINT" SPACEIGGGCSFPACER}BIBLACKFTUTBL 
UE SPACEIG{SPACEIGISPACESFBISPACEIG" 

23 PRINT"CSPACEIGGTSPALEZIIGISPACESIGTSRA 
CE2I6GG1SPACE2IGGE" f 
24 PRINT"SPACEIGISPACEIGTSPACEZIGTSPACE 
3IGLSPACESIGISPACEIG{SPACEIG" 

25 PRINT"(SPACEYGISPACEZIGLSPACEIBTSPACE 
ZIIGIGREENFKAETBLUE SPACEFIGTSPACEIGTSPAG 
EIG" 

26 PRINT"{SPAGEIGESPAGEZYIGTSPACE2IGGBBISP 
ACE GREEN} (XBLUEIGGG{SPACEZIGTSPACEIG" 
27 PRINT" GREENIV{SPACE BLACKY/OLSFAGET 
RED})%* 

28 PRINT"{SPACE2 BLACKI-. CSPACET REDY+, 
29 PRINT" ISPACEIS GREENHI&T7 
30 PRINT" <SPACEIS GREENIB9 
31 PRINT"{SPACEIS GREEN?: 
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x32> 
«2025 


<117> 


<179> 
«221> 
<252> 
<230> 
<150> 
*119> 
<t> 
<aR> 


<x193> 


<191> 
<139> 
<208> 
<170> 


<158> 
<26> 
x9&> 
<217> 
2297 


<199> 


32 BOSUB40: POKE44 ‚21: POKE45, 721 CLR=LOAD 
40 FORA=5773106129: READBı POKEA,B:C=C+B:N 
EXT 
41 1FC< >24128THENPRINT”"{CLEAR RVSOH BLAC 
KHDATALSPACE}ERROR" SEND 
42 RETURN 
50 DATAZ17,238,217,256,217,234,217,231 
51 DATA217,230,217,227,217,223,217,0 
52 DATAO,223,227,230,0,227,230,231 
53 DATAO,234,0,0,0,230,234,2356 
54 DATAO, 234,231 ,230,0,230, 227,223 
55 DATAO,223,0,0,0,223,227,230 
56 DATAO,231 ,0,217,0,227,230,231 
57 DATAO,234,0,0,0,223 ,227 ,230 
58 DATAO,231,0,217,0,227,250,231 
59. DATAO,234 ,„0,223,230 ,223,227,230 
60 DATA223,223,227,230,0,227,230,231 
6 DATAO,234,0,0,0,230,234,23& 
&2 DATAO, 234,231 ,250,0,230,227,223 
&3 DATAO,223,0,0,0,223,227,230 
&4 DATAO,231,0,0,0,227,230,231 
65 DATA0,234,0,0,0,230,234,256 
66 DATAO,238,231,230,0,230, 227,223 
67 DATAO,223,0,0,223,227,230,230 
68 DATA223,227,223,0,223,227 ,223,234 
67 DATAZ23,227,223,0,223 
ENDE DES LISTINGS 


0 POKESS, 13%: POKESS ‚22: Y=3697&: POKEY-7,2 
55: D-34903: E=40:F=706616=32: POKEF ‚32 

1 POKED,S0: I=7150:H=100: PRINT" {CLEAR} "LP 
DKEY+3 ,248: J=5765: K=1: BUSUB109 

10 1=130:5Y55842:8YEJ:PRINT"CHAHE RVSOH 
BLACK} "TAB (PEEK (1) +2) "MILE" INT (L/18) 

11 PRENT” {HOME} "TAB«PEEK (T) +25) " CRVSONIM 
ANVK"ELERTI® 

15 WALT37137 ,32,32:5Y55809 





Gompube enöb 


x15> 
“2328 


“151? 
<194> 
*169> 
x179> 
<206> 
<170> 
<221> 
<F1> 
677 
<104> 
<a9> 
<5> 
<30> 
<179+ 
%*229> 
<997> 
607 
<192> 
2337 
Aaur 
2207 


saa> 





<156> 
853? 
<254> 


<19> 
«235> 
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14 PRINT" CHOHE} "TAB <PEEK (I) +2) "IBPACE2Y/ 100 DIMASCZO) LAFLO)="IRIGHT BLACK RIGHTZ 
OLSPACEA DOHNH LEFTS SPACERF-. TSPACEIY“ “249> ar" <135> 
20 FORW=1T0&: SYSJz FORASOTOG= NEXT: C=SC-E/R 101 A&tI)="IBLACK RIGHT7IH" x215> 
: IFPEEK {F} =GTHENNEXT- <215> 102 AS(ZI="{RIGHTI GREENFLMTBOHN FÜRPIE 

21 PRINT" IHBHEI"TAB(PEEKCDIIAFERND(1I#30 . LEFT2>NO" <I6> 
I); :1L=L+1 z129> 103 AFLZI="IRIGHT7 GREENYLMIDDUHN LEFTZ2 P 

22 IFPEEK (F)=66DT029 <1377 URPLEFNG” 993 
24 IFPEEK (F)=BORPEEK {FI=PTHENPOKEF „32:60 104 A&(A)="CRIGHTI BLACKYRSTDOUN LEFT2ST 

TO2G ; <9?4> u” <B> 
25 8Y55793: POKEY,O:POKEY-1,0:POKEY+1 ,220 105 A$CSI="TRIGHT BLACKIRSTDONN LEFT2YTU 

sk=k+1 <977 5 x187> 
350 PRINT" {HOHE DOHNI12}"TAR<{PEEK (ZA1L1)-B) 105 A&StA)="{RIGHT GREENYY" «242> 
"{BLACKIPIDORN LEFTIU“: «1097 107 AS(7)="{RIGHTE GREEN RIGHTIWIDOHN LE 

40 FORA=15STOOSTEF-. 05: POKEY+2,A=NEXT:POK ETIX" <116> 
EY+1 ,0:POKEF „S2:POKEY+2,15 <113> 10 ASIBI="TREDIYIDBOHN LEFTIYZEINITTDOHN L 

50 IFK<460T010 “95> EFTSI_ RE" <40> 
55 PRINT"{HOBE RVSUNF"TAB(IBON" u ———— 107 AFCM="IRICHTE GREENITTKIDOHN LEFT2}Y' 

—— ":PRINTTAR (4) "SRVSON} |TSPACEITF |" “i3SF> ({DGOHN RED LEFTZYIRIDOHN LEFT2I+," <189> 
56 PRINTTABCA)"IRVSONF |CSPACEIIYL" <103> 110 AStIO)="TBLACK RIGHTZ3Y/OIDOHN LEFTZ} 

57 PRINTTAB (A) " ERVSONS |XSRACELIY |":PRINT u <79> 
TAB(A) " ERVSON}T——'" “2427 111 Agt11)="TRIGHTS GREEN RIGHTY12DOHN 

60 As(1I="GAME" «250> LEFT2ISLPURPLEIATDOHN LEFT2 RICHTYS" <209> 
61 PRINT" IHOHE RVSON}"TAR (204) 5 1 8D5SUB97: 112 ASlLIZI="IGREEN RIGHTZYSTÄDOHN LEFT2}Y 

AS (1) ="DVER" SPRINT" SPACE”; :G0DSUB97:PRI BIEDOUN LEFTZNEE" 2200> 
NT:PRINT <111> 113 AS{1FI="{RIGHT2 GREEN>12{DOHN LEFT2> 

&2 PRINTTAB (6) "{RYSONY”z=AFSCLI=SSTRECINTE StPURPLEFATDOHN LEFT2 RIGHTYS” <32> 
L/18}) :605UB97 “116> 114 As(14)="ZBLACK RIGHTS>/OLDOHN LEFT2} 

63 FRINT"TSPACEY" 3 sAS(L)I="MILES": IFINT GL en 196> 
/18) =1THENAS(II="MILE" ‘ s4>- 115 AF(15)="{BLYE RIGHT#>587CDDOUWN LEFTZ>B 

64 GOSURF7 “228> FAXDOHN LEFT2ZY=E" <103> 
90 WAIT37137,32, 32:RUN <B1?> 116 Astiä)="(RIGHT7 GREENYARIDOHN LEFTZ} 

27 FORA=ITDOLEN (A$t1)) :POKEY , 240: A$=MID$ ( "({DOHN BLACK LEFTZY)I#TSDOHN LEFT2I+,"SRE 
AS(1),A,1) 251? TURN %201> 
38 FRINTA$; :POKEY,O <o> ENDE DES LISTINGS 

97 FORB=1T0100: NEXT: NEXT: RETURN <214> 





Geisterhölle für den VC-20 


Ghost-Hell 





Ziel des Spieles ists, in der Geisterhölle 8 
Pillen aufzusammeln, was auch den Punk- 
testand erhöht. Dies ist aber gar nicht so 
einfach, weil 3 Monster ihr Unwesen trei- 
ben. 

Mit der „SPACGE“-Taste springt Ihr Männ- 
chen hoch über die Monster. Ansonsten 


kann man Leitern rauf und runter gehen 
und sich fallen lassen - aber nicht zu tief! 
Andernfalls ist „GAME OVER“, 

Wenn man das geschafft hat, erscheint 
ein Schlüssel. Hat man diesen genom- 
men, geht oben links ein Tor auf, Dortmuß 
man hinausgehen. Das nächste Bild be- 
ginnt ... 
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Programme 


Das Spiel besteht aus 2 Teilen, die separat | die die „RUN-STOP“ und die „RESTORE“-Taste | Über die Tastatur wird gesteuert: 



























































abgetippt und gespeichert werden müs- | sperrt. Also: Erst abspeichern und dann | A = rechts 
sen. Im Teit 2 ist eine Routine eingebaut, | spielen!!! D = links 
fi = Leiter rauf 
oO REM NN % isR F = Leiter runter 
* 2 
1 REM»GHOST HELL BY# * SPACE = Springen 
* <138> N A n 
2 REM#ROLAND SCHOLZ * * = ee nn RECHTS: {SPACEID 
* « m + ” 
3 REM*MARTIN-LUTHER # * Me. ee len RAUF {SPACEZIE {SPACEIFI 
%* 
1100 PRINT"RUNTER: {SPALEIFT" 
Ra FE ; SER 1109 PRINT" (DOHNZ>SPRINGEN: {SPACEI RYSON 
3SPACE {RUSOFF}" 
An ae MEHLERENEST r 109% | 11210 PRINT"<DOWN2 RIGHT RVSON> TASTE" POK 
E198,0:WALT198, 1: FORT=SBTD160: FOKESEBB1 , 
7 REM <150> er 
= En Fe 1120 PRINT" {CLEARYLADENTSPAGEISIETSPACEI 
19 PRINT" {GLEAR?”sPOKESA,28 <223> a Fre 
2 LERLEIHERTOTAEN 227? | 1130 FORT=160TOSBSTEP-11POKES6BB1,TENEXT 
40 IFB=-1THEN1000 <63> xney 
50 POKET,B €255> ENDE. DES LISTINGS 
60 NEXT <190> a 
70 DATA126,90,126,60,24,24,36,66 <14B> Teil 2. 
80 DATA1264,219,255,255,251,219,126,0 <52> 
30 DATAS1,127,253,255,170,87,92,138 <20> 0 POKE37150,2:POKE788,194 
100 DATA255,255,255,255,238,229,160,132 <115> 5 POKE34878, 15: D1=1:R1=0:A=0:R=0:W=0:E=0 
110 DATA249, 254,295,255,258,87,92,138 <139> IR=O 
120 DATA127,127,255,129,129,205,129,255  <1287 10 FORT=7680T08186: POKET ‚7: NEXT: POKE368& 
130 DATA64,160,191,165,65,0,0,0 <148> 9,255: RESTORE 
140 DATAO,0,0,0,0,0,0,0 “977 11 FORT=7424107424+7: READS: POKET „S:NEXT 
150 DATA255,145,145,255,255,143,137,137 <210> 12 DATAO,0,0,0,0,0,0,0 
1000 PRINT"CHOHE RVSOM RIGHTS}GHISTISPAC 100 PRINT" CLEAR?" en 
EIHELL? er 11 PRIND 
1010 PRINT" {DOHNFSIETSPACEIMUESSENESPAGE 115 PRINT 
IMIT{SPACE}THREMISPACE DOHNFMAENNCHENTSP 120 FRINT”"{SPALE1ZITISPAGEZIETSPACEIHH" 
ACEIALLEISPACEHPILLEN{SPÄACE DOWN 'FRESSE 139 PRINT" ESPAGEIHHLSPACEHBECCECCCECCCELEDE 
N’." <144> XSPACEIHH" 
1020 FRINT" (DOHNFABERTSPACEFFÄSSENTSPACE 140 FRI NT" {SPACE3IHHTSPALELSYETSPACEIHH" 
3SIETSPACEIAUF, ISPACE2 DOHNFYDIETSPACEIMO 150 PRINT" LSPACEIHHTSPACEI4FELSPACEHH" 
NSTERTSPACEIWOLLENTSPACES DOWN>SIETSPACE 140 PRINT" SPACESHHISPACE LAHE {SPACE HH" 
3DARANTSPACEIHINDERN. " “164> 170 PRINT" {SPACEIHHTSPACEHTISPACEFIETSPA 
1030 PRINT" {BOUN>LIEBERTSPACEIDIETSPACEIM GE2ZYELSPACFIHH" 
DNSTER{SPACES BDOWNYKDENNEN{SPACE>SIETSFA 180 PRINT"BECCCCCCCCCELDETSPACEZIETSPACE 
CEISPRINGEN{SPACE2 DOHNIMITTSFACLEYDERISP au 
ACEYTASTEISPAGE RVSONISFACERWSGFRI." <199> 190 PRINT" SPACESIHHLSPACHSIELSPACERIELE 
1040 PRINT"{DOHN2 RIGHT RVSON}TASTE":POK FETT iss u 
E198,0:WAIT198,1:FQRT=38T0180: FOKES68B1, 209 PRINT" SPACESIHHISPAGESIETSLACEZIELE 
T:NEXT=PRINT"{CLEAR3" <106> PACEIHH" 
£SPACES. DOHN}SCHLUESSEL „DEN{SPACE}MUESSE CE2IIESPACEASELSPACESTELSPACEH"T — 
N{DOHNYSIETSPAGEIHÜHLEN” <62> 220 PRINT" (SPACE}BLED{SPAGEIHHISPACEZYBG 
1052 PRINT" DOWN? DANNTSPACEIBEHTTSPALEIN EELCDELSPACEINN" 
AEMLICHTSPACE}DASTDEHN? TOR SPACEFOBENISE 230 PRINT” (SPACEYETSPALEIETSPACEZIHHTSPA 
ACEIL.INKSTSPACEIAUFÄSPACER DOHNYDORTISPA CESFELSPACEFHHr em a 
CEIMUESSENTSPACEISIETSPACES DOHNFRALSBEH 240 PRINT"BE{SPACEIETSPACEZIHHTSPACEIBIS 
EN" <222> PACETIETSPÄCEIHH" 
1055 PRINT" (DOWN) DANACHTSPACE+FAENGT SEA 250 PRINT" SPACEFETSPACEFETSPAGES}TISPAL 
CEIDAS{SPACES DOWNISPIELTSPACEIVONTSPACE ESIELSPACEZFEIHH" 
3FORNTSPACETAN. " <168> 260 PRINT” (SPACEIETSPACEHETSPACEZIBECECD 
1054 FORT=1&0T033STEF-1:FOKES6881 ,TaNEXT <1207 £SPACEFYEECCDHR" 
1055 PRINT" {DOWNZ2 RIGHT. RUSON}TASTE<RVSQ 270 PRINT" {SPACEIETSPAGEIETSPACESFHHISPA 
FF}Y"<POKE198,0:WAIT1IB, 13 PRINT" LCLEARF" “5273 CEIHEISPACEIIHR" 
1080 PRINT"t{RIGHTZI SPACE3ISTEUERUNG <DOHH 280 PRINT" SSPACEHETSPACEHETSPACE IISPAc 
BELTER ee meer <197> EZYHHTSPACESIETSPACESIHH" 
1079 PRINT"LINKSCSPACE} S TSPACEIA" <el> 290 PRINT" (SPACEFETSPACEIBECCEDHHISPACEI 
1075 PRINT <208>. 


IETSPALERFHH" 


Sompute mib 


<212> 
«2185 
156? 
x220> 
<2> 


<46> 


«178> 


2995 
<123> 
<86> 
<105> 
<227> 
<17> 
<130> 
<7> 
<12> 
x33> 
<42> 
<13> 
223> 
<33> 
<191> 
<126> 
<6B> 
<78> 
<239> 
<84> 
<105> 
<113> 
x241> 


207 


<197> 


«1425 


<71> 


tips & tricks 


300 PRINT"ISPACEIETSPACETIIISPACEAIELSPA 
CEAYHH" 

310 PRINT"BELECCECOECCECECECEDHH" a 

311 B=7754:N=7845: M=8022: A=7728: POKEA+B+ 
W+E+R,O 

320 GETA$ 

330 IFA$="A"THENSOO 

340 IFA$="D"THENAOO 

350 IFAg="{FL}Y" THEN12100 

360 IFA$=" {E73 "THEN12000 

370 IFAS="XSPACEI" THEN11000 

380 FOKEB+Z ,7:POKEX+N,7:FOKEV+M,7 

390 Z=Z+1: X=X+1:V=V+l 

400 IFZ>2THENZ=-5 

410 IFXF2THENX=-5 

430 IFV>OTHENV=-4 

440 IFZ+B=A+ß+W+E+RTHENLO000 

450 IFX+N=A+G+HW+E+RTHEN10000 

470 IFV+M=A+Q+W+E+RTHEN10000 

480 POKEZ+B,1:POKEX+N,1:POKEV+M,1 

490 FORT=OT0100:NEXT:OND1G0T0329, 7000,11 
000 

500 FOKEA+B+W+E+R, 7:G0=Q-1:G0SUB3000 

510 IFS=BOBRS=20RS=JTHENA=R+1 

520 GETA$: IFA$=" SPACE} "THEN7OO0O 

530 POKEA+O+HHE+R ,0: FOKE36875 ‚225: POKES& 
875,0 

540 6010320 

600 POKEA+G+W+E+R, 7: W=W+1 2 5O5UB3I000 

&10 IFS=BORSSZORS-ATHENW-W-1 

620 GETAS: IFAF=" ISPALEI"THEN7OOO 

&30 GOTOSSO 

3000 S=PEEK (A+U+W+E+R) 

3910 IFS=1THEN10090 

3020 IFS=F7THENGOSUBFGCOO 

3030 IFA+B+W+E+R=-78S34THENGOTOS 

3035 IFS=Z20RS=40RS=BTHENZOSO 

5040 IFS=5THENEOSLRSDOO 

3050 IFS=20RS=40RS=8THENS0A0 

3060 D=PEEK {A+Q+W+E+R+22) 

3070 IFD=70RD=-32THEN?OOO 

3080 RETURN 

7900 Di1=2: FPOKEA+O+W+E+R,7 

7010 E=E+22 

7020 D2=PEEK (A+B+W+E+R) 

7030 IFD2=70RD2=32THEN7040 

7035 D1=1:DI=0: E=E-22: POKEA+O+W+E+R, 0:60 


<87> 
x1707> 


<14> 
x2089? 
21757 
2127 
<a> 
“23> 
167) 
“123 
“216? 
“29> 
<32> 
*10> 
<237> 
<35> 
<47> 
<BA> 


x26> 
<b0> 
“15372 
“a5? 


<142> 
“997> 
sa89> 
<1979> 
<165> 
<197&> 
<F30> 
«161? 


<179> 
<46> 
<51> 
<b1> 
<52> 
<129> 
<162> 
x238> 
<195> 
<56> 
<82> 


lips & Tricks 


TO320 

7940 FOKEA+E+W+E+R,O: POKES6875 „225: POKES 
8875,0 

7050 D3S=D3+1 

7040 IFD5S>3THENIOOCCHO 

7079 GDTO3B0 

8000 SC=SC+100 g 

8010 FORT=774770785&STEP22: POKET ‚„7:PDKES 
&875,240: POKE365075,0: NEXT 

8020 FORT=7748T17837STEP22: POKET „7:POKES 
4875,200: POKES6B75,0:NEXT 

8030 RETURN 

20009 FÜRT=200170240: PGKRE36875, Ts POKE34875 
„OzNEXT 

9010 SC=5C+109: 8P=SP+1 3 IFSP=BTHENPOKE7933 
»6:5P=0 

27020 PRINT"£RVSOB HOHEFSCORE: "SC 

97030 RETURN x 
10000 PRINT’{RVSON HONE DOWNS SPACE7}GAM 
ETSPACEIOVERTSPACESI” 

10010 FRINT"{RVSON SPATEYIPRESSISPAGCEIATSE 
PACEIKEYTSPACEITOTSPACEISTART {SPAGESF THE 
KSPACEYGAMETSPACEIAGAINTSPALESF"SPOKELFO 
‚O:WAITIFB,1:RUN 

11000 D1=3:POKEA+BQ+W+E+R,7 

11010 Ri=Ri+1 

11020 IFR1>2THEN11050 

11030 R=R-22: FOKREArO+W+E+R,O 

11049 GOTOSZA0 

11050 E=E+22 

11080 A9=PEEK (A+.+W+E+R) 

11079 IFR1=3THENE=E-22: POKEA+G+W+E+R,0ER 
1=0:D1=1:G0T0320 

11090 FOKEA+D+W+E+R-22,7:POKEAHI+UHEHR, 0 
111909 GGTO580 

12000 POKEAFG+W+E+R,SsE=E+22 

12010 A2=PEEK (Ard+rW+E+R-22) 

12020» IFNOTAZ=STHENE=E-22 

12030 IFNOTPEER (A+U+WHE+R) =5STHENE=SE-22 
12049 POFEO+W+E+HR+HA „Or FOKES64875 , 225: PDKE 
36875,0 

12050 GOTOTZO ; 

12100 FOKEA+A+W+E+R,5:R=R-22 

12110 AZ=PEEK (A+Q+W+E+R) 

12120 IFNOTA2Z=STHENR=R+22 

12130 POKEA+D+W+E+R,0:POKES4875, 225: POKE 
36875,0 

12140 GOTOS20O 








für den VC-20 


<2> 


<21> N 
<199> E 
<127> 
<16> 
<108> 


<112> 


<21> | 
<11> 


<170> 


<835> 
<116> 
<247> 


<171> 


37» 
x161> 
13532 
<a2> 
<235> 
#162> 
x155> 
<27> 


<157> 
<51> 
<222> 
<27> I 
<ı8a> 
<a0> 1 
<217> 


<59> 
<134> 
<25> 
<43> 
<108> 


<i11> 
<224> 





SCROLLING TIPS 


Scroll nach unten weg und zurück. 


10 FOR X=25 T0130:POKE36881,X:NEXT:PRINT“clearscreen“ 


20 PRINT“neuer Text" 
30 FOR X=130T025STEP-1:POKE36881,X:NEXT 


Diese Routine existiert in verschiedenen Varianten, die sich 
lediglich in den Werten für die X-Schleife unterscheiden. 


Scroll nach links weg und zurück. 


10 FORI=0T030:POKE251,1:POKE252,16:FOR K=1T0130:NEXT 


Compube mib 


K,l:PRINT“clearscreen“ 
20 PRINT“neuer Text“ 
30 FORI=30T01STEP-1:POKE251,1:POKE252,16: 


FOR K=1T010:NEXT K?1 
K.0.-Seroll. 


Folgende Scrollroutine eignet sich besonders für Spiele, in 
denen die Spielfigur K.O.geschlagen wird - wie z.B. bei 


'Kong’-Spielen: 
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tips & tricks 


10 FOR 1=5T055:POKE 36864, 1:POKE36865,1+:FOR K=1T065:NEXT | 20 PRINT“neuer Text“ 
K,l:PRINT“clearscreen“ 30 POKE36864,12:POKE36865,38 


Aus- und einhlenden, 

10 FOR 23101 STEP-1:POKE36867 }+1:POKE36866,1-1:POKE36864,13:POKE36865,82-INTW/2)*4:NEXT I 
20 PRINT"clearscreen“:PRINT“neuer Text“ 

30 FOR I-1T023:POKE36867 I+:POKE36866,1-1:POKE36864,13:POKE36865,82- 

30 FOR I=1T023:POKE36867 ‚I+1:POKE36866,1-1:POKE36864,13:POKE36865,82-INT(/2)*4:NEXT 1:1=0 





Seitwärts mit Text’ EINE Bildschirmzelle Jöschen. 

10 BL$="i9 leertasten“: A$="text* POKE7B1,Zeilennummer:POKE782,0:POKE783,0:$YS60045 

20 A$=BL$+A$ 

30 FOR I=1 TO LEN(A$): PRINT TAB(2) EINE Bildschirmzeile bis zur angegebenen Spalte löschen: | 
MID$(A$,1,18) POKE781,Zeilennummer:POKE782,Spaltennummer:POKE783,0:5Y560047 

40 PRINT “up up“: FOR K=1T0150: Te ee 
NEXT Ki {gofls. :RETURN) Erdbeben 


10 FOR Y=1T020:FOR X=3 TO 7:POKE 36864,X:NEXT XY:POKE 36864,12 
20 FOR Y=1T020:FÜR X=23T027:POKE 36865,X:NEXT X,Y:POKE 36865,38 
Seroll nach unten: Variante Die erste Zeile ist für ein horizontales, die zweite für ein vertikales Beben. 
10 A$=""FOR T= 0 TO 18:A$= 
AS+CHR$(29:NEXT 
11 A$=CHR$(IN)+AS+CHR$(T60)+CHR$(I57)+CHR$(57) 
12 A$=A$+CHR$(157)+CHR$(157)+CHR$(H57)-+-CHR$C148) -CHR$(148) +CHRS(1A8) 
Damit sind die einzusetzenden Strings definiert: der Aufruf erfolgt mit GOTO oder GOSUB folgende Zeile: 
nnnnn PRINT A$:POKE217,158:POKE218,158 








Schwarzes Loch Wirbeisturm 
10 A=150:B=174 10 A=36864:B-36865 
20 FOR C=1T021:A=A-1:B=B-2:POKE 36866,A:POKE 36867,B:NEXT | 20 FOR X%=46 TO 0 STEP -2:POKEB,X:POKEA,51-X 
30 PRINT CHR$(147); 30 FOR T=1T05: NEXT TX 
40 FOR C=1T021:A=A+1:B=B+2:POKE 36866,A:POKE 36867,B:NEXT | 40 ggafl. neues Bild erzeugen, sonst weglassen 
(50 RETURN) falls erforderlich 50 FOR X= 0to 46Step 2:POKEB,X:POKEA, X 
rn nenne en etennr re rsrner een | 00 IR E10 MET 1X: 

h Zeilen 20 und 50 können als selbständige Unterrou- 
Wieder auswärts tinen aufgerufen werden, wenn die Zeile mit einem 
10 PRINT“clear 19(neunzehnmal) down“ RETURN beendet wird.- 


| 20 FOR N-ITO LEN(A$):REM A$ ist der zu scrollende Text 
I 30 PRINTTAB(1)MID$(A$,N,1) 
iı 40 FOR T=1T0175:NEXT TN 


n Langsam aufwärts 
50 FOR K=1T0500:NEXT:PRINTCHR$(147) (gafls. :RETURN) 10 POKE 36879.8:PRINT" text" 


20 FOR A=131T00 STEP-1: POKE 36865,A: FOR B=1 T045: 
NEXT B,A: POKE 36865,24 

Die Aufwärtsgeschwindigkeit wird durch die B Schleife kontrol- 

liert; die durch diese Routine geänderten Farbwerte müssen 

ggfl. zurückgesetzt werden. 








li 


Seroll für eine Zeile nach unten {erste Zeile ausgenommen). 
Diese Routine scrollt ab der zweiten Bildschirmzeile eine 
Zeile nach unten: 

I PRINT“home ersrdown crsrleft inst";POKE218,158 

| In Verbindung mit einer Zähischleife, z.B. FOR I=1T020, kann man den ganzen Bildschirm nach untern wegscrolien, und die erste 

Zeile als Statuszeile stehenlassen. 
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werkstatt 











Dies ist eine außerordentlich. 
kurze Soundroutine für den 
VC-20, die voll in Basic ge- 
schrieben istund alle 4 Sound- 
register ausnutzt. 


Mit diesem kleinen Programm 
läßt sich sehr schön experi- 
mentieren. Z.B. können die | 
Werte in Zeile 120 geändert 
werden. 





Versuchen Sie mal 
250 ABS="22324322“ 





Wir fanden, daß das Pro- 
gramm die Soundmöglichkei- 
ten des VC-20 wirklich optimal 














ausnutzf. - 


410 READC:FOKEN,TIE,Z? 
































160 FOKES4879 ,253:REM COOL ROCK 2723 2164> 
170: FRINT"LSOLEARF" “200> 420 ZE=ZE+1: IFZE=TTHENZE=G: AB=AB+1 <109> 
180 FRINT" IRIGHFS?SILVER-SDOFT" a2: 430 POKEN,R (VAL (MIDS (AB$,Z,12),AB} <153> 
191 FRINT"ERBOHN RIGHTS BLACKFFTREDIRICEFA 440 ZI=ZT+1: IFZT=S7THENZT=1 x18> 
NIELPURPLEISTGREENFETBLUERNTVELLOHFTEBLA 450 A=VAL (MIDF<TA$,ZT,1}): IFA=1THENPOKEJ 
CKy:" z142> .Zu0 «35> 
200 FRINTCHR# 144) 3PRINT" {C) "BAISPALCE>BY 460 IFA=ZTHENPOKEJ „252 x229> 
SPACE} THOMAS {SPACE WELF" 945 479 IFX=0DRX=11THENPOKER,„RtVAL (MID$ (ABS, 
201 PRINT" ERIGHTZ DOHN RIGHTS) TOOL SPACE Z,1)),1) <150> 
FROCK" <1243 480 IFX=5ORX=17THENFOKEB,R {VAL (MIDS (AR$, 
210 B=34874:N=36975:M=36976: J=36877 <207> Z,1)),3) <38> 
220 Rt1,1)=-195:8(1,2)=207:R(1,3)=215:R(1 490 POKEJ,O <90> 
‚4 =219Rt1,5)=2213R(1,6)=219: 2186> 500 FORW=1TO15:NEXTW,X,Z <ı1971> 
221 R(1,7)=219:R(1,9)=207 x90> 510 ONUGOSUBSS50,610,550,610,550,610 <47>2 
230 R(2,1)=209:R (2,2)=219:R(2,5)=225:Rt2 520 NEXTU:PRINT"CCLEARY":END <162> 
4) =228:R (2,5)=229:R(2,6)=228: <101> 530 DATA1,1,2,3,3,1,42,2,3,1,1,2,3, 3,1424 
231 R(2,7)=225:R(2,09)=219 <188> 2.300,85 <165> 
240 R(3,1)=219:R(3,2)=223:R (3,39 =228: R (3 540 DATA3,3,35,3 <49> 
9 =231:R1I,D-Z32:RtI,a)=231: x46> 550 PRINT"{CLEAR DOHN23DIESES{SPACEIMUSI 
241 R(3,7}=2285R (3,8) =223 »137> £C-FROGRAMM{DOHNZ RIGHT2I%###1IST{SPACEICOO 
250 ABS="11213211* <44> L{SPACEFROCKRRR" <23> 
260 TA$="101202" SEES 540 PRINT <203> 
279 T11,1)=207:T<2,1)=219: T{3,1)=225 <A9> 570 PRINT <213> 
280 T11,23=207: Tt2,2)=215: T13,2)=225 <107> 580 PRINT <223> 
290 71(1,35)=209: (2,35) =217: 113,3) =225 <13r 590 PRINT S <233> 
500 T(1,4)=207:T{2,4)=215: 113,9 =225 ED2T> &00 RETURN «232> | 
310 Tt1,5)=215: 112,9 =223: 113,59) =228 <B> &10 FRINT"ICLEAR DORN#F"SCHRE(144) <64> 
320 T(1,63=209: T(2,6)=219: T13,6)=225 “187> 620 PRINT"DIE{ZSPACE>MELODIESFAGEFBEINHA 
530 Tt1,73=207:112,79=215: 1T13,7)=225 <141> LTET{ROUN2F4LSPACEISTIMMEN" <b> 
340 T(1,99=207:T(2,8)=215: T(3,8)=225 <199 > 630 PRINT" DORNI1) S-TONLSPACEIMELODIE" «184> 
250 FOKES6978,5 x27> 634 PRINT" {DOHK>2) JAZZ-UNTERST EMMEN <186> 
360 FORU=1T0& <230> 432 PRINT" {DOAN? 37 WECHSELBASB” <172> 
370 FORZ=1T08 <6> "640 PRINT" {DOHN>4) SCHLAGZEUG" »PRINTCHRE( 
380 RESTORE “9 > 144) ; <163> 
390 AB=0: ZE=2: ZT=0 <B1> #50 PRINT <37> 
400 FORX=01023 x93> 660 RETURN <I6> 
Gompute mib 7186 


Bang! Kapow! 


u 
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programme 





3 Spiele in einem Programm für den C-6% 


„Roadrunner“ ist ein Superspiel, ganz in Maschinensprache geschrie- 
ben und beinhaltet 3 verschiedene Spieifelder. 


Level }: 


Im ersten Bild muß der Roadrunner von 
Sonnenaufgang bis Sonnenuntergang 
durch die Wüste laufen und dabe viele 
Hindernisse überwinden. 





Joysticksteuerung: 
_ nach oben = Sprung 
nach oben und dann nach rechts verlän- 
gert den Sprung 


Level 2: 


Der Roadrunner hat sich aus der Wüste in 
die Berge gerettet. Nun muß er über 
Schluchten springen. 





Joysticksteuerung: 

Feuerknopf: Roadrunner beginnt zu laufen 
nach oben = Großer Sprung 

nach rechts= kleiner Sprung 

Sind alle 3 Level geschafft, geht das Spiel 





mit erhöhter Geschwindigkeit von vorne 
los. 


Level 3: 


Roadrunner bleibt vom Pech verfolgt. Nun 
hat er sich in ein Indianerreservat verirrt 
und muß den Pfeilen der Indianer auswei- 
chen. 





‚Joysticksteuerung: 


nach alien 4 Seiten 
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1000 REM DATA-LDADER FUER * ROÄDRUNNER * 
1010.REM VOR DEM STARTEN ABSPEICHERN 
1020 : 

1030 3 

1040 RATAO,55,8,194,7,158,53,49,50,47,58 
‚„143,32,42,32,82,79,65,69,82,85, 78,78 
1050 DATA&9,92,32,42,32,32,32,32,32,52,3 
2,32,32,32,32,32,32,32,40,67,41,32,82 
1050 DATA45,32,58,73,83,85,69,92,0,0,0,6 
8,58,59,48,698,68,58,68,60,58,48,40,67 
1070 DATA41,32,02,46,32,69,73,831,83,69,8 
2,0,0,0,1353,2590,169,54,133,251,169,9 
1080 DATAL33,252,169,34,133,253,169,1,13. 
3,98,169,54,133,99,173,161 ,31,24,105 


<3> 1090 DATA10,141,161,31,201,10,144,3,76,1 

<216> 25,8,238,160,31,173,163,31,0,0,0,0,0 <234> 

£37> 1100 DATAO,0,0,0,0,0,80,0,1,180,0,1,185, 

<6B> 0,1,164,0,1,144,0,0,64,0,0,64,0,0,64 <210> 
1110 DATAO,0,64,0,0,64,64,0,64,80,1,64,2 

393 1,85,144,26,170, 164,26, 171,164,26,250 263 
1120 DATA154,26,170,144,6,170,64,0,7,255 

e41> „0,1,220,0,1,220,0,1,220,0,1,206,0,1 <177> 
1130 DATA134,0,1,131,0,3,3,0,3,1,128,6,0 

2903 „192,12,0,104,14,0,112,28,0,88,4,0,0 <171> 
1140 DATA0,0,0,0,0,0,0,0,0,0,0,0450,0,0,0 

<94> ‚0,0,0,0,0,0,7,255,0,0,48,0,0,48,0,0 <136> 
1150 DATA48,0,0,48,0,0,56,0,0,56,0,0,48, 

«93 0,0,48,0,0,48,0,0,48,0,0,56,0,0,124 <247> 


Gompute mib 


3 


























1160 DATA9,0,90,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1170 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
‚80,0,1,180,0,1,185,0,1,164,0,1,144 


1180 DATAO,0,64,64,0,64,80,1,64,21,86,14 
4,26,170,164,26,191,164,26,250, 164,26 
1190 DATA170,144,6,170,64,0,0,56,0,0,56, 
0,0,56,0,0,124,0,0,254,0,1,255,0,3,255 
1200 DATA128,7,255,192,7,255,192,7,255,1 
92,7,255,192,7,255,172,3,255,128,1,255 
1210 DATAQ,0,254,0,0,254,0,0,124,0,0,56, 
0,0,56,0,0,124,0,0,84,0,0,0,59,128,0 
1220 DATAS7,0,0,57,0,0,125,0,0,255,0,1,2 
39,0,3,215,128,3,187,192,7,125,192,6 
1230 DATA254,192,7,255,192,7,255,128,3,2 
55,128,1,255,0,1,254,0,1,254,0,1,124 
1240 DATAO,1,56,0,3,184,0,0,124,0,0,84,0 
0,3,184,0,1,56,0,1,56,0,1,124,0,1,254 
1250 DATAO,1.255,0,3,255, 128, 7,255, 128,7 
‚255,192,7,239,192,7,215,192,3,187, 192 
1260 DATA3,125,129,1,255,0,0,255,0,0,255 
‚0,0,125,0,0,57,0,0, 59 ,128,0, 124,0,0 
1270 DATAB4,0,0,0 „0,0,0,0,0,0,0,0,0, 32,0 
‚0,112,0,0,148,0,0,32,0, 0,32,0,0,32 
1280 DATAO,O, 32, 0,0,32,0,0,32,0,0,32,0,0 
‚32,0,0,32,0,0,32,0,0,32,0,0,32.0.0 
1290 DATAS2,0,0,0,0,0,0,0,0,0,48,0,0,120 
‚0,0,120,0,24,120,0,31,248,94,7,248 
1300 DATA224,0,255,274,0,127,192,0,124,0 
‚60,120,0,61,126,0,15,254,0,15,248,0 
1310 DATAO,120,224,0,127,224,0,127,192,0 
„124,0,0,120,0,0,120,0,0,252,0,1,254 
1320 DATAO,0,0,0,0,0,1,224,0,7,240,0,14, 
248,0,29,120,0,58,208,0,117,176,0,235 
1330 DATA96,1,214,192,3,173,128,7,91,0,1 
5,182,0,29,236,0,24,216,0,24,240,0,13 
1340 DATA224,0,7,128,0,0,0,0,0,0,0,0,0,0 
»0,0,0,0,0,0,0,0,0,240,0,3,248,0,0,24 
1350 DATAO,0,14,0,0,14,0,6,111,0,12,207, 
15,12,207,63,217,143,59,249,191,31,255 
1360 DATA255,15,255,255,3,255,254,1,255, 
252,0,255,248,1,143,240,1,140,96,3,24 
1370 DATA96,6 ‚24,192,12,48, 192,0,0,0,0,0 
‚0,0,1,255,192,3, 255,240, 255 , 255,255 
1380 DATA127,255.254,31, 255,252,31,255,2 
48,31,255,248,63,255,252,63,255,248 
1390 DATA31,255,252,3,255,248,3,255,240, 
7,255,224,7,255,240,3,255,240,7,255 
1400 DATA248,15,255,248,31,255,240,15,25 
5,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1410 DATAO,7,0,0,61,248,0,15,254,0,63,14 
‚0,0,14,0,7,252,0,15,248,0,12,0,0,7 
1420 DATAZ55,224,15,255,241,12,0,50,15,2 
55,226,7,255,242,12,0,50,15,255,254 
1430 DATA7 ,255,252,0,0,48,12,24,17,240,4 
+34,16,4,50,8,4,18,8,252,10,8,11,140 
1440 DATAB, 137,72,240,135,81,240,192,83, 
8,112,110,42,24,60,110,8,1&,204,12,48 
1450 DATA152,7,176,1764,1,183,224,0,252,0 
‚0,120,0,0,56,0,0,56,0,0,254,0,0,0,0 
1460 DATAO,0,0,0,0,0,0,4,65,17,85,85,85, 
85,85,85,90,85,95,85, 149, 145,85, 150 
1470 DATABS,85,85,85,89,85,85,87,85,85,9 
0,85,85,85,85,101 ‚95,85,149,95,85,85 
1480 DATABS, 85 ‚B5,86,85, 85,101,85,85, 101 
‚85,85,85,85,85,0,85- 101,895,85,101,85 
1490 DATAL49 „149,85,149,85,101. 85,85, 101 
‚85,85,149,85, 86,85,89,87,95,101,101 
1500 DATABS, 101 „101 ,85,85, 101,95,85,05,8 
5,86,85,85,86,83,95 ‚86,86,85,06,96,85 
1510 DATABL,BS, 155,06, 85,89,86,85,89,89, 
85,153,101,85,89,0, 255,255, 255,255,255 


<189> 
<20> 
<91> 
<198> 
<iet> 
<39> 
<140> 
<218> 
<159> 
<105> 
x36> 
623 
<108> 
x1653+ 
<2157 
<15> 
<102> 
<170> 
«322 
<244> 
<35> 
*150> 
*140> 
<96> 
<208> 
%22> 
<75> 
<A6> 
x33> 
<230> 
<14> 
<157> 
<211> 
<254> 
<115> 


<74> 


Programme 


1520 DATA255,255,255,255,255,255,259,255 
‚251,255, 255,238,255,255,255,255,255 
1530 DATA235,255,255,255,255,255,255,255 
‚255,255,255,255,255,238,255, 255,251 _ 
1540 DATA255, 255,255, 255, 255,255,255,255 
„254,255 ,255 ,255, 255,251 „259,255 ,255 
1550 DATA255, 251 ,255,255,255,255,255,0,2 
55,255,255,, 255,255, 255, 255,255,255,255 
1540 DATA255,255,255,191,255,255,239,255 
‚239,255,255,255,255,255,255,255,251 
1570 DATA255,255,254,255,191,255,254,255 
‚255, 255,255, 255,255, 255,255, 255,254 
1580 DATA255,755,259,191,255, 191,259, 255 
‚255,255, 255,255, 255, 255,255, 255,255 
1590 DATAZSS, 255,0,240,0,255,255,3,255,2 
55,255,254, 255,251 ,255,255,255, 255,255 
1600 DATA255,255,255,25%, 255,255, 255,255 
‚254 ‚255,255, 255,255,255, 255, 255,255 
1610 DATA255,255,255,255, 255,255, 255,255 
‚191 ,255,255,255,255, 255, 255,255,255 
1620 DATA25S,255,255,255,295,255,255,255 
‚255,255, 255, 239,254,0,170,170,170,170 
1430 DATA170,170,169,170,170,167,106,170 
„149,104,170,165,106,170,169, 106,170 
1640 DATAL69,170,166,169,170,150,167,85, 
96, 169,85,86,165,170,90,165,101,90,165 
1650 DATA90,106,169,85,106,170,190,170,1 
70,186,170,170,186, 170,170, 186,170,170 
1660 DATA186,170,170,250,170,0,170,170,1 
70,170,170,170,170,170,170,149,235,94 
1670 DATA149,105,84,154,105,166, 154,105, 
166,154,105,166,149,105, 166,149 ,233 

1680 DATA166,150,169,166,151,169,166,153 
‚169,166,153,233,166,154,105,166, 154 
1890 DATA105.6, 154,107,94,170, 170,170, 1 
70,170,170,170,170,170,170, 170,170,0 
1700 DATA170,170,170,170,170, 170,170,170 
‚170,181 ,233,74,149,105,94,154,105,102 
1710 DATA154,105,144,154,105,166,154,105 
ı166,149,105,166,149,105, 166, 154,105 
1720 DATA1664,154,105,166, 154,105, 166,154 
‚105,102,154,105,94,154,105,94,170,170 
1730 DATA170,170,170,170,170,170,170,170 
‚170,170,0,170,170,170,170,170,170,170 
1740 DATA170,170,149,233,166,149,105,166 
‚154,105,166,154,105,166,154,105,166 
1750 DATA149,105,166,149,233,166, 150,169 
‚166,151,169,166,153,169,166,153,233 
17640 DATA166,154,105,166,154,105,86,154, 
107,94,170,170,170,170,170,170,170,170 
1770 DATA170,170,170,170,0,170,170,170,1 


 70,170,170,170,170,170,150,105,102, 150 


1780 DATA105,102,150,105,102,150,105,102 
‚150,105,102,150,105,102,149,105,8& 

1790 DATA153,105,150,153,105,150,153,105 
‚150,153,105,150,153,105,150,153,105 
1800 'DATA150,153,105,150,170,170,170,170 
„170,170,170,170,170,170,170,170,0,170 
18i9 DATA170,170,170,170,170,170,170,170 
„191,233,94,149,105,86,154,169,166,154 
1820 DATA159,166,154,169, 166,149, 105,86, 
147,105,94,154,169,106,154,169,122,154 
1930 DATA159,1534,154,169,158,154,169 ,14& 
,149,105,166, 181,233, 166,170,170,170 
1840 DATA170,170,170,170,170,170,170,170 
„170,0,170,170,170,170,170,170,170,170 
1850 DATA170,170,170,170,170,170,170,170 
‚170,170,170,170,170,170,170,170,170 
19640 DATA170,170,170,170,170,170,170,170 
„170,170,170,170,170,170,170,170,170 
1870 DATA170,170,170,170,170,170,170,170 
‚170,170,170,170,170,170,170,170,170 


Compube mi 


x33> 
<179> 
<144> 
<186> 
<10> 
<4B> 
x144> 
<BB> 
<172> 
<180> 
<142> 
<49> 
22023 
<250> 
<209> 
2993 
<146> 
<181> 
<121> 
x175> 
<A3> 
<102> 
<207> 
<23> 
<199> 
<«106> 
<215> 
<218> 
<242> 
<109> 
<183> 
<12> 
<237> 
<59> 
<b9> 


“79? 


7/86 








2/86 





1880 DATA170,170,170,170,0,0,255,0,3,255 
‚192,15,255,240,31,255,248,63,255, 252 
1970 DATA127,255,254, 127,255, 254, 255,255 
‚255,255 ,255,, 255 ‚255 , 255 , 255,255, 255 
1900 DATA255, 255,255,255, 127,255, 254,127 
„255,254 ,63, 255,252, 15,255,240,3,255 
1710 DATA1L92,0,255,0,0,0,0,0,0,0,0,0,0,0 
„0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,2,170 
1920 DATAO,10,170,128,10,170,168,2,170,1 
68,10,170,170,42,170,170,170,170,170 
1930 DATA170,170,148,42,170,160,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  , 
1749 DATAO,0,0,0,0,0,0,0,0,0,32,0,0,32,0 
„0,32,0,0,32,0,0,32,0,0,32,0,0,32,0 
1950 DATAO,32,0,0,32,0,0,32,0,0,32,0,0,3 
2,0,0,32,0,0,168,0,0,112,0,0,32,0,0 
1780 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1770 DATAO,0,0,0,0,0,16,0,0,56,0,0,124,0 
„0,254,0,0,186,0,0,254,0,0,124,0,0,5& 
1980 DATAO,0,56,0,0,56,0,0,0,56,0,0,56,0 
„0,56,0,0,124,0,0,254,0,1,255,0,3,255 
1790 DATA128,7,255,192,7,255,192,7,255,1 
92,7,255,192,7,255,192,3,255,128,1,255 
2009 DATAO,0,254,0,0,254,0,0,124,0,0,56, 
0,0,56,0,0,124,0,0,84,0,0,0,59,128,0 
2010 DATA57,0,0,57,0,0,125,0,0,255,0,1,2 
39,0,3,215,128,3,187,192,7,125,192,6 
2020 DATAZ54,192,7,255,192,7,255,128,5,2 
55,128,1,255,0,1,254,0,1,254,0,1,124 
20390 DATAO,1,56,0,3,184,0,0,124,0,0,84,0 
„0,3,184,0,1,5640,1,56,0,1,124,0,1,254 
5040 DATAO,1,255,0,3,285,12B,7,255,128,7 
,255,192,7,239,192,7,215,192,3,187,192 
2050 DATA®, 125,178,1,255,0,0,255,0,0,255 
‚0,0,125,0,0,57,0,0,59,128,0,124,0,0 
2060 DATAS4,0,0,170,170,170,170,170,196, 
170,170,170, 186, 170, 170,170, 171,170 
2070 DATAL70,170,170,170,170,170, 170,170 
‚170,182,150,190,181,90,90,169,105,10& 
2080 DATA1L70,85,170,170,150,170,170,149, 
170,150,86,106,165,101,170,170,105,10& 
2090 DATA147,106,70,173,170,154,175,170, 
196, 170,170,170,0,0,0,0,0,0,0,0,0,0 
2100 DATAO,32,0,0,154,32,2,95,152,9,117, 
88,9,85,88,9,93,224,2,149,28,0,37,86 
2110 DATAO,41,118,0,41,88,0,10,160,0,0,0 
‚0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
2120 DATAO,170,170,170,170,170,1704171z% 
70,174,170,170,170,170,170,170,170,170 
2130 DATA234,170,170,170,171,170,170,170 
„170, 170,170,170,170,170,170,170,170 
2140 DATA170,171,234,170,170,170,170,170 
‚170,170,170,470,170,170,170,234,170 
2150 DATA170,170,170,186,170,170,170,170 
„174 ,170,170,170,0,0,0,0,0,0,0,0,0,0 
2150 DATAO,32,0,0,112,0,0,168,0,0,32,0,0 
»32,0,0,32,0,0,32,0,0,32,0,0,32,0,0 
2170 DATA32,0,0,32,0,0,32,0,0,32,0,0,32, 
0,0,32,0,0,32,0,0,0,0,0,0,0,0,0,0,0 


® 


* * 
2180 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
2190 DATA0O,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
‚0,0,0,0,0,0,0,0,0,0,0,149,4,141,152 


2200 DATA31,32,156,19,238,153,31,173,153 
"31,141,251,7,169,25,141,6,208,167,70 
2210 DATA141,7,208,230,252,169,8,141,152 
‚31,32,156,18,238,153,31,173,153,31 

2220 DATAL41,252,7,167,40,141,8,208,169, 
135,141 ,9,208,230,252,169,16,141,152 
2230 DATA31,32,156,18,238,153,31,173,153 
‚31,141 ,253,7,169,120,141,10,208,169 


<185> 
<1777 
x9> 
2333 
<BO> 
<B> 
<217> 
<30> 
x214> 
x233> 
<205> 
20687 
<a4> 
<185> 
<2435> 


“184>. 


<128> 
<62> 
<43> 
<241> 
<0> 
<156> 
<25> 
<218> 
<148> 
<110> 
<182> 
<152> 
<200> 
<236> 
<179> 
<196> 
<204> 
<F1> 
<225> 


s178> 


programme 


2240 DATA135,141,11,208,230,252,169,32,1 
41,152,31,32,156, 18,238, 153,31,173,153 
2250 DATA31,141,254,7,169,200,141,12,208 
„169,135,141,13,208,230,252,169,&4,141 
2260 DATA152,31,32,156,18,238,153,31,173 
„153,31,141,255,7,169,25,141,143,20B 
2270 DATA169,135,141,15,208,230,252,169, 
128,141,152,31,32,156,18,76,241 ,18,145 
22B0 DATA250,24,105,4,133,250,145,250,20 
1,3,144,3,76,174,18,230,251,160,0,177 
2290 DATA250,200,201,128,240,7,177,250,1 
537,39,208,232,76,177,250,200, 157,39 

2300 DATA208,232,177,250,200,141,37,208, 
177,250,141 ,38,208,76,221,18,173,28 

2310 DATA208,13,152,31,141,2B,208,76,173 
„37,208, 201 ,0,240,3,76,211,189,173,38 


2320 DATA208,201,0,240,238,76,211,18,169 


„1,141 ,45,4,169,2,141,55,4,169,3,141 


"2330 DATA65,4,169,4,141,75,4,169,5, 141,1 


09,5,167,6,141,119,5,169,7,141,129,5 
2340 DATA169,8,141,139,5,169,7,141,45,21 
6,141,55,216,141,65,216,141,75, 216,141 
2350 DATA109,217,141,119,217,141,129,217 
„141,139,217,162,16,160,0,24,32,240 

23640 DATA255,169,195,32,210,255,200,192, 
40,208,248,162,17,160, 15,24 ,32,240 ,255 
2370 DATA142,0,189,93,19,32,210,255,232, 
224 ,8,208,245, 76,101 ,19,84,85,70,49 

2380 DATA76,32,32,32,162,19,160,5,24,32, 
240,255,162,0,189,125,19,32,210,255 

2390 DATA232,224,27,208,245,76,154,19,95 
32,61 ,32,69,08,73,84 ,32,32,32,76,69 
2400 DATAS9,82,84,65,83,84,69,32,61,32,8 
3,85,67,72,69,78,162,21,160,10,24,32 
2410 DATA240,255,162,0,173,154,31,201,5, 
240,33,189,185,19,32,210,255,232,224 
2420 DATA19,208,238,76,204,19,45,45, 72,3 
2,61,32,03,69,76,69,67,84,32,83,80,82 
2430 DATA73,84,69,173,140,31,201,58,240, 
9,141,189,6,238,130,31,76,233,19,167 
2440 DATA49,141,189,6,169,48,141,190,6,2 
39,140,31,95,162,23.180,11,24,32,240 
2450. DATA2S5,162,0,173,154,0,234, 234,254 
‚234 „234,234 ,234 ,234,169,0,32,8,31,254 
2460 DATA234,234,234,234,234,234,159,5,1 
41,24,212,169,0,141,4,212,141,11,212 
2470 DATA141,19,212,169,0,141,224,207,14 
1,232,3,141,233,3,141,234,3,141,235 

2480 DATA3,76,214,25,169,0,160,0,72,138, 
72,152,72,160,0,162,0,200,192,255,144 
2490 DATA251,232,236,249,3,144,245,104,1 
68,104,170,104,95,72,138,72,152,72,160 
2500 DATAO,162,0,200,192,245,144,251,232 
„236,250,3,144,245,104,168,104,170,104 
2510 DATAF6,149,0,160,32,133,250,132,251 
„169,0,162,0,160,0,145,250, 200, 208,251 
2520 DATA230,251,232,224,32,208,242,96,1 
69,59,141,17,208,169,24,141,24,208,167 
2530 DATA216,141,22,200,169,0,96,169,27, 
141,17,208,169,21,141,24,208,169,200 
2540 DATA141,22,209,76,141,245,207,72,13 
8,72,152,72,169,0,133,250,140,234,207 
2550 DATA169,32,133,251,142,253,207,192, 
0,240,17,136,230,251,145,250,24,105 

2560 DATAG4,133,250,144 ,230,230,251,76,1 
86,20,224,0,240,15,202,145,250,24, 105 


‚2570 DATAB,133,250,144,2,230,251 ,768,207, 


20,234,165,250,24,105,3,133,250,144 
25680 DATA2,230,251,169,5,141,235,207,169 
,0,133,252,133,253,174, 243,207 ,24,105 
2590 DATA64,133,252,176,8,202,224,0,240, 
0,76,252,20,230,253,76,3,21,162,0,160 


Compuhe mib 


<141> 
<230> 
<a9> 
<206> 
<104> 
<181> 
<111> 
<3> 
<147> 
<153> 
<137> 
<119> 
<3> 
«147? 
<93> 
<24> 
<5> 
<204> 
943 
<59> 
<7772 
<25> 
<72>. 
<26> 
<82> 
«76> 
<118> 
<Ba> 
<52> 
<25> 
<198> 
<96> 
<82> 
22405 
<211> 


<397> 


5 


16 


programme 


2600 DATAO,140,246,207,140,245,207,140,2 
44,207 ,173,246 ,207 „201,3,240,37,140 

2610 DATAZ3I,207,142,238,207,172,238,207 
‚177,252,172,239,207,145,250, 259,245 
2620 DATA207 ‚232,165, 250,24, 105,8,133,25 
0,176,3,76,29 ,21,230,251 ,76,29,21,234 
2630 DATA167,0,141,246,207,238,245,207,1 
73,244 ,207 ,201 ,2,240,62,173, 245,207 

2640 DATA205,235 ,207 ,240,21,145,250,54,2 
33,23,201,233,176,5,133,250,76,29,21 
2650 DATA199,251,133,250,76,29,21,738,24 
4,207,169,8,141 ,235,207,169,0, 141,245 
2660 DATA207,230,251,165,250,24,105,33,1 
33,250,176,3,76,29,21,230,251,76,29 

2670 DATA21,96,173,245,207,201,8,240,3,7 
6,97,21,32,18,22,169,0,133,250,169,4 
2690 DATA133,251,173,242,207,141 ,225,207 
32,204 ,21,173,240,207,141,225,207,169 
2690 DATA0,133,250,169,216,133,251,32,20 
4,21,104,168,104,170,104,96,172,234 

2700 DATA207,192,0,240,15,136, 165, 250,24 
‚105,40,133,250,144,2,230 ,251,76,207 
2710 DATA21,172,233,207,192,0,240,10,136 
‚230, 250,208, 247 ,230,251,76,229,21,160 
2720 DATAO,173,225,207 ,145,250,200, 192,3 
‚208,249,160,40, 145,250 ,200,192,43,208 
2730 DATA249, 160,80, 145,250,200,172,83,2 
08,249, 96,96,173,17,208,41,16,240,9 

2740 DATA173,17,208,41,239,141,17,208,9& 
‚173,17,208,#,16,141,17,208,96,169,0 
2750 DATA149,153,0,208,200,192,17,208,24 
8,76,254,167,0,141,32,208,141,33,208 
2760 DATAS2,19,22,32,103,20,32,130,20,32 
‚19,22,169,14,141,33,208,169,0,141,255 
2770 DATA207,169,37,141, 254,207 ,169,50,1 
41,253,207,160,160,140,242,207,160,2 
2780 DATALA0,240,207,162,0,160,21, 149,59 
‚32,164,20,232,224,39,200,248,162,0 

2790 DATA200,32,164,20,232,224,38,208,24 
8,162,0,160,22,167,54,32,164,20,162 

20 DATAZ,169,55,32,164,20,162,4,169,56 
‚32,164,20,162,9,167,57,32,164,20,162 
2810 DATA12,169,58,32,164,20,160,240,140 
‚242,207 ,150,14,140,240,207,173,224 

2820 DATA207,160,22,162,25,169,53,32,164 
,20,162,28,32,164,20,162,31,32,164,20 
2930 DATA142,34,32,164,20,162,37,32,164, 
20,173,207,207,201,1,240,1,76,32,228 
2840 DATA22,32,19,22,76,97,24,150,8,140, 
242,207,160,7,140,240, 207,174 ,255,207 
2850 BATA140,19,173,253,207,32,164,20,23 
2,232,232,224,37,144,243,174,254 ,207 
2850 DATAZ2,164,20,174,255,207,180,17,17 
3,253,207,24,105,1,32,164,20 ,232,232 
2870 DATA224,37,144,241,174,254,207,32,1 
64,20,174,255,207,160,15,173,253,207 
2880 DATA24,105,2,32,164,20,232, 232,232, 
224 ,37,144,240,174,254,207,32,164,20 
2890 DATA162,37,160,16,169,51,32,164,20, 
162,5,160,16,169,51,32,164,20,162,12 
2900 DATA160,19,169,51,32,164,20,162,12, 
160,17,169,50,32,164,20,96,169,192,133 
2910 DATA250,141,249,207,141,219,207,169 
‚50,133,251,141,248,207,141,218,207 

2920 DATA1659,7,141,252,207,141,247,207,1 
69,0,141,246,207,96,162,0,160,0,177 

2930 DATA250,157,60,3,232,200,192,8,208, 
245,206 ,252,207 ‚240 ,16,230,251,165,250 
29409 DATA24,105,64,133,250,144,2,230, 251 
»76,132,23,173,249 ,207,133,250,173,249 
2950 DATA207,133,251,173,247,207,141,252 
»207,160,0,162,0,234,152,24,105,8,168 


<206> 
x3> 
<189> 
<41> 
<172> 
<176> 
<72> 
<131> 
<231> 
<10> 
<31> 
<3> 
29> 
<48> 
<154> 
«2475 
<57> 
<73> 
<119> 
<215> 
<207> 
<23> 
<221> 
<130> 
<193> 
<189> 
<173> 
<29> 
<119> 
<223> 
x81> 
<E7> 
<135> 
<224> 
<207> 


x105> 


2960 DATA177,250,72,152,56,233,8,168,104 
„145,250,200,232,224,8,208,233,206,252 
2970 DATA207,240,16,230,251,165,250,24,1 
05,64,133,250,144,2,230,7251,76, 182,23 
2980 DATA173,249,207,24,105,8,141 ,249,20 
7,144,3,230,248,207 ,234 ,234 ,234,234 

2990 DATA234,234,234,234 254,234 ,234,234 
,76,25,28,234,230,245,207,173,246,207 
3000 DATA201,39,144,152,173,249,207,133, 
250,173,248,207,133,251,173,247,207 

3010 DATA141 ,252,207,162,0,160,0,234,187 
„60,3,145,250,200,232,192,8,208,244 

3020 DATA206,252,207,240,16,230,251,165, 
250,24,105,64,133,250,144,2,230,251 


3030 DATA74,32,24,173,219,207,141,249,20 


7,133,250,173,218,207,141,248,207,133 
3040 DATA251,169,0,141,246,207,169,7,141 
‚252,207,141,247,207,76,130,23,162,5 
3050 DATA142,7217,207,32,96,23,169,0,141, 
23,208,141,29,20B,169,7,141,21,208,169 
3060 DATA1,141,28,208,169,34,141,248,7,1 
62,36,142,249,7,162,60,142,250,7,162 
3070 DATA42,142,251,7,162,46,142,252,7,1 
62,44,142,253,7,162,43,142,254,7,162 
3080 DATA47,142,255,7,169,9,141,37,208,1 
69,10,141,38,208,169,8,141,39,208,169 
3090 DATA9,141,40,208,169,7,141,41,208,1 
69 ,5,141,42,208,141,46,208,169,11,141 
3100 DATA43,208,169,2,141,44,209,169,9,1 
41,45,208,169,0,141,0,208,141,2,208 
3110 DATA169,175,141,1,208,169,196,141,3 
„208,141 ,16,208,169,55,141,4,208,169 
3120 DATASB,141,5,208, 169, 255,141 ,249,3, 
32,51,20,169,3,141,249,3,169,197,141 
3130 DATAF,208,141,11,208,169,191,141,7, 
208,169, 202,141,15,208,141,13,208,32 
3140 DATA189,25,238,0,209,239,2,208,32,5 
1,20,206, 217,207 ,208,28,169,4,141,217 
3150 DATA207,32,140,25,173,249,7,201,36, 
240,8,169,36,141,249,7,76,67,25,169 
3160 DATASS,141,249,7,173,0,208,201,130, 
240,3,76,25,25,169,36,141,249,7,32,145 
3170 DATA25,169,60,141,249,3,32,51,20,32 
‚131,25,169,37,141,248,7,32,51,20,32 
3180 DATA177,25,32,51,20,169,34,141,248, 
7,32,131,25,32,51,20,32,177,25,32,184 
3190 DATA25,32,51,20,96,169,0,141,4,212, 
141,6,212,169,8,141,5,212,169,100,141 


3200 DATAO,212,1549,30,141,1,212,169,33,1 


41,4,212,96,173,4,212,240,6,169,0,141 
3210 DATA4,212,96,169,129,141,4,212, 96,1 
62,6,169,0,157,0,212,202, 208, 250,96 

5220 DATA159,17,141,5,212,169,17,141,6,2 
12,169,10,141,1,212,169,69,141,0,212 
3230 DATA169,0,141,4,212,96,169,0,141,33 
‚208, 141,32,208,169,147,32,210,255,169 


324090 DATA1,141,207,207,32,19,22,32,103,2: 


0,32,148,20,169,0,141,21,208, 168,153 
3250 DATAO,209,200,192,17,208,248,32,35, 
22,169,70,141,250,3,167,11,141,210,207 
3240 DATA169,25,141,209,207,32,44,201,23 
4,234 ,234 ,254,234,169,3,141,195,207 

3270 DATA169,41,133,252,169,26,133,253,7 
6,229 ,26,150,29,29,29,17,17,17,29,29 
3280 DATA29,29,29,42,32,82,32,79,32,65,3 
2,60,32,82,32,85,32,78,32,78,32,69,32 
3270 DATAB2,32,42,95,151,17,17,29,29,29, 
29,29 ,29,29,29,29,29,29,29,29,40,67 

3300 DATA41 ,32,92,46,32,68,73,83,93,49,8 
2,95,17,17,30,29,29,29,29,29,29,29,27 
3310 DATA29,27,29,29,74,79,89,83,84,73,6 
7,75,32,80,79,92,84,32,50,95,17,17,17 


Compute mik 


<107> 
<33> 
<150> 
<24> 
«75> 
<214> 
<a4> 
<111> 
<241> 
<243> 
<8> 
<102> 
443> 
<137> 
<B9> 
<136> 
£38> 
<170> 
<14> 
<167> 
<154> 
<203> 
<124> 
<170> 
<35> 
<198> 
<211> 
<104> 
<149> 
“240> 
<224> 
<6B> 
<188> 
<230> 
<248> 


1327 


71/86 





3320 DATA158,29,29,29,29,29,29,29,29,29, 
29,29,29,29,83,67,79,82,69,32,58,95 

3330 DATA17,29,29,29,29,32,29,29,29,72,7 
3,71,72,45,83,67,79,92,69,32,58,95,17 
3340 DATA1L7,17,17,159,32,32,32,32,32,32, 
32,32,32,32,32,32,32,32,32,00,82,49 

3550 DATA83,83,32,70,73,82,69,153,157,15 
7,157,157,157,145,145,145,145,145,145 
3360 DATA145,94,160,0,177,252,201,94,240 
„18,201 ,95,2098,2,169,13,32,210,255,230 
3370 DATA252,208,2,230,253, 76,231 ,26,172 
„232,3,132,99,173,233,3,133,98,162,144 
3380. DATAS6,32,73,188,32,221,189,32,30,1 
71,173,224,207,240,5,169,49,32,210,255 
3390 DATA173,233,3,205,235,3,176,14,76,6 
7,27,173,232,3,205,234,3,176,5,76,67 
3400 DATA27,240,243,173,232,3,141,234,3, 
173,233,3,141,235,3,169,13,32,210,255 
3410 DATAS2,210,255,162,20,169,29,32,210 
„255,202, 20B,248,172,254,3,132,99,173 
3420 DATA235,3,133,98,162,144,56,32,73,1 
88,32,221,199,32,30,171,173, 224,207 

3430 DATA240,13,169,48,32,210,255,169,0, 
141,232,3,141,233,3,169,1,141,224 ,207 
3440 DATA234,234,234,234,234,234,32,228, 
255,201,141,240,10,173,0,220,201,111 
3450 DATA208,242,76,190,27,238,207,207,3 
2,51,20,32,51,20,32,51 ,20,173,207,207 
3460 DATA201,4,144,220,169,1,141,207,207 
„76, 136,27 ,173,207,207 ,201,1,240,12 

3470 DATA201,3,240,3,76,0,192,76,21,196, 
234,234 ,169,1,141; 207,207 ,32,56,22,32 
3486 DATASS,22,173,210,207,141,217,207,1 
69,25, 141 ,209,207,234,32,96,23,169,10 
3490 DATA141 ,215,207,169,0,141,214,207,1 
69,1,141,6,208,169,71,141,9,208,169 

3500 DATA140,141,10,208,169,16,141,12,20 
8,169,100,141,14,208,169,135,141,21 

3510 DATA208,173,30,208,209,251,76,130,2 
3,169,0,141,211,207,76,85,29,173,217 
3520 DATA207,74,240,242,206,217,207,208, 
118,173,0,220,201,127,240,3,76,195,28 
3530 DATA234,173,30,208,41 ,252,240,3,76, 
157,30,173,210,207,141,217,207,169,1 
3540 DATA141,211,207,76,85,29,173,214,20 
7,240 ,3,76,12,29,206,215,207,208,43 

3550 DATA169,10,141,215,207 ,239,232,3,20 
8,3,239,233,3,173,16,208,41,4,240,13 
3560 DATA204,4,208,208,18,173,16,208,41, 
251,141,16,208,206,4,208,173,4,208,201 
3570 DATAS8,144,30,173,214,207,240,3,7&, 
154, 28,32,160,25,173,249,7 7201,36, 240 
3580 DATAS,238,249,7,76,154, 28,206, 249,7 
‚7653,24 ‚32,169 ‚28,206, 210,207 , 206, 210 
3590 DATA207,76,0,192,174,209 ,207 224,40 
+208,1,96,173,232,3,24,105,100,141,232 
3600 DATA3,144,3,238,233,3,232,76,172,28 
+201,126,240,21,201,125,240,17,201,123 
3610 DATA240,7,201,119,240,6,74,46,28,76 
„136,30,76,120,30,174,1,208,224,175 

3620 DATA240,3,76,45,28,162,140,142,212, 
207,201,126,240,5,169,152,141,212,207 
3630 DATA169,35,141,247,7,169,2,141,214, 
207 ,169,1,141,213,207,32,177,25,32,89 
3640 DATA30,76,46,28,234, 173,213, 207,201 
„1,240,3,765,49,29 ,173,1,208, 205,212 

3450 DATA207,144,15,206, 1,208, 206, 1,208, 
206,3,208,206,3,208,76,77,28,238,213 
3660 DATA207,173,1,208,201,175,240, 15,23 
8,3,209,238,3,208,238,1,208,238,1,208 
3670 DATA76,79,28,169,0,141,214,207,32,1 
77,25,32,188,25,76,79,28,234,206,6,208 


7/86 


<51> 
<101> 
<78> 
<248> 
<248> 
<27> 
<199> 
<1&0> 
<204> 
<24> 
<179> 
<219> 
<243> 
<232> 
*44> 
<234> 
<14> 
<«133> 
<7> 
<41> 
<45> 
<7> 
<79> 
<223> 
<189> 
<243> 
<x159> 
<145> 
<66> 
<125> 
<254> 
<123> 
<176> 
<124> 
<174> 


<205> 


programme 


3680 DATA209,36,173,16,208,72,41,8,240,7 
„104,41,247,141,16,208,76,127,29,104 
3690 DATA9,8,141,1&,208,169,230,141,6,20 
8,173,21,208,9,8,141,21,208,206,8,208 
3700 DATA208,57,173, 16,208, 72,41,14,240, 
9,104,41,239,141,16,208,76,189,29,104 
3710 DATAF,16,141,16,208,169,230,141,8,2 
08,173,21,208,9,16,141,21,208, 173,9 

3720 DATA208,201,179,209,8,169,185,141,7 
‚208,76,189,29,206,7,208,238,7,208,20& 
3730 DATA10,209,208,56,173,15,208,72,41, 
32,240,9,104,41,223,141,16,208, 76,230 
3740 DATA29,104,9,32,141,16,208,169,2S0, 
141,10, 208, 173,21,208,9,32,141,21,208 
3750 DATA204,12,208,208,46,175,16,209,72 
„41,64,240,9,104,41,191,141,16,208,76 
3760 DATA25,30,104,9,64,141,16,208,169,2 
30,141 ,12,208,173,21,208,9,64, 141,21 
3770 DATA209,173,6,208,201,115,144,3,206 
‚13,208,206,14,200,208,49,173,16,208 
3780 DATA72,41,128,240,9,104,41,127,141, 
16,208,76,78,30,104,9,128,141,16,208 
3790 DATA169,230,141,14,208,173,21,208,9 
„128,141,21,208,173,4,208,201,230,144 
3800 DATAS,169,190,141,15,208,173,211,20 
7,240,3,76,71,28,76,31,28,169,0,141 

3810 DATA4,212,169,96,141,5,212,169,0,14 
1,6,212,169,0,141,0,212,169,30, 141,1 
3820 DATA212,167,129,141,4,212,96,173,0, 
208,201 ,255,240,6,238,0,20B,238,2,208 
3830 DATA76,46,28,173,0,208,201,30,240,2 
46, 173,214, 207,208, 241 ,206,0,208, 206 
3840 DATA2,208,76,46,28,32,155, 25,32,230 
„30,174, 209 ,207,1&0,0,140,242,207, 140 
38350 DATAZ40,207,160,22,169,59,32,164,20 
„232,232, 232,142,209,207,224, 40,240 

3960 DATA6,32,99,24,76,221,27,76,214,25, 
169,0,141,4,212, 162,255, 141 ,5,212,142 
3970 DATA&,212,142,0, 212,142,1,212,169,5 
0,141,208,207,169,17,141 4.212,96 ,32 
3980 DATA200,30,169,4,141,249,3,238,39,2 


'08,238,37,208,32,51,20,206,1,212,206& 


3890 DATA40, 208,206, 208,207,208,236,169, 
0,141 ,4,212,96,173,0,20,201,0,240,1 

3900 DATA9A, 169,64,160,31,133,95,132,96, 
169,224,160,46,133,90,132,91,169, 160 
3910 DATA160,207,133,98,132,09,32,191,16 
3,169,1,141,0,20,96,77,80,32,789,69,84 
3920 DATA71,85,0,113,31,18,112,84,69,169 
„2,141,207,207,169,0,141,33,20B,141 

3930 DATA21,208,32,148,20,169,25,141,209 
‚207 ,32,165,25,162,0,187,40,192,32,210 
3940 DATA25S,222,224,39,208,245,76,79, 19 
2,147,17,17,17,17,17,17,29,29,29,29 

3950 DATA27,29,29,15?,80,82,69,83,63,32, 
70,73,82,69,32,70,79,82,32,76,69,86 

3950 DATA69,76,32,50,32,32,173,0,220,201 
„111,208,249,32,54,22,159,1,141,200 


3970 DATA207,159,137,1431,242,207,32,44,2° 


2,169,7,141,240,207 ,162,0,160,17,169 
3980 DATA48,32,128,192,162,0,150,19,169, 
49,32,128,192,76,144,192,32,164 ,20,232 
3990 DATA232,232,224,37,144,246,162,37,3 
2,164,20,96,169,1,141,242,207,141,240 
4000 DATAZ07,162,3,160,1,169,61,32,164,2 
0,162,8,32,164,20,162,19,32,164,20,162 
4010 DATAZ&,32,164,20,162,33,32,164,20,1 
69 ,31,141,21,208,169,1,141,28,208, 167 
4020 DATA132,141,27,208,169,1,141,206,20 
7,169,34,141,248,7,162,36,142,249,7 
4030 DATA169,45,141,251,7,3141,252,7,141, 
253,7,141,254,7,141,255,7,141,250,7 


GSompute mib 


<112> 
«1687 
<191? 
:207> 
23977 
377 
<43> 
<204> 
<F> 
<74> 
<90> 
<1157 
x67> 
<170> 
A937 
*157> 
<1&357 
£153> 
<178> 
<109> 
*252> 
<127> 


<115> 


<997 > 
<108> 
x237> 
<7> 

<82> 
<S36> 

<106> 
<I> 

2357 
233? 
23775 
x200> 


<z1i0> 


7 









































Programme 


4040 DATA169,252,141 ,23,208,189,0, 141,37 
»208,141,18,208,159,10,141,38,208, 169 
4050 DATAS,141,39,208,149,0,141,40,208,1 
67,14,141,42,208,141 ,43,208,141,44,208 
4060 DATA141,45,208,141,46,208,141 ,41,20 
8,157,150,141,4,208,169, 184,141 ,5, 208 
4070 DATAt41,7,208,141,7,2089,141,11,208, 
141 ,15,208,141,15,208, 169,195,141,& 

4080 DATAZOB,169,20,141,9,208,169, 14,141 
»16,208,169,0,141,0,208,141,2,208, 141 
40970 DATA204,207,189,159,141,1,208,169,1 
797,141 ,3,208,173,30,208,208,251 ,32,35 
4100 DATA22,32,198,25,76,131,193,32,160, 
25,206,206,207,76,203,1935,169, 138,141 
4110 DATA202,207,76,33,194,169,127,141,2 
02,207,78,334,194,169,144,141 „202,207 
4120 DATA?6,33,194,52,77,20,173,16,208,4 
1,3,208,7,173,0,208, 201 ,35,144,15,173 
4130 DATAO,220,201,119,740,208,201,126,2 
40,212,201,125,240,216,173,206,207 ,201 
4140 DATA2,240, 184,206 ‚208,207 ,208,28,1& 
97,4,141,206,207,32,160,25,173,247,7 

4150 DATA201,36,208,8,169,35,141,249,7,7 
6,203,193,169, 56,141 ,249,7,1735,30,20B 
4150 DATA41,252,240,13,174,1,208,224,158 
+208,6,141,201 ,207,76,155,194 ,173,0 

4170 DATA20B,201,80,208,10,1735,16,208,41 
+3,240,3,76,121,174,173,0,208, 201,255 
4100 DATA209,8,173,16,208,7,3,141,16,208 
+238,0,208,238,2,208,173,16,208,41,3 
4190 DATA208,10,173,0,208,201 ,33,208,3,3 
2,155,194,173,204,207 ,208,3, 76,131 ,193 
4200 DATA7&,52,194,32,89,30,169,35,141,2 
49,7,167,1,141 ,203,207,141,204,207,76 
4210 DATA203,193,32,77,20,173,203,207,20 
1,1,208,23,173,1.209,205,202,207,240 
4220 DATAF,206,1,208,206,3,208,76,203,19 
3,258, 203,207,76,203,193,173,1,208,201 
4230 DATA159,240, 1,201 ,153,144,5,169,,36 
„141 ,249,7,238,3,208,238,1,208, 76,203 
4230 DATA193,169,0,141,204,207 ,32,188,25 
+76,163,193,234,167,0,141,15,208,169 
4250 DATAS6,141,249,7,76,95,195,234,32,1 
65,25,169,36,141,2439,7,32,77,25,173 

4260 DATAO,220,201,111,208,249,76,173,1& 
»208,41,3,208,10,173,0,208,201,35,176 
4270 DATAS,76,225,193,32,209,194,174,209 
»207,160,0,140,242,207 ,140,240,207,140 
4280 DATAZ2,169,59,32,164 , 20, 232,232,232 
‚142,209,207,224,40,240,3,76, 144,192 
4290 DATA7&6,214,25,169,1,141,200,207,159 
»36,141,249,7,32,165,25,173,201 ,207 

4300 DATA41,4,208,37,173,201,207,41,8,20 
8,36,173,201,207,41,16,208,35,173,201 
4310 DATAZO7,41,32,208,34,173,201,207,41 
»64,208,35,173,14,208,24,105,12,75,40 
4320 DATA195,173,4,208,76,4,195,173,6,20 
8,76,40,195,173,8,208,76,40,195,173 

4330 DATA10,208,76,40,195,173,12,2089,76, 
40,195,141,0,208,141,2,208,32,200,30 . 
4349 DATA159,4,141,249,3,258,1,208,238,3 
+208,206,1,212,206,1,212,32,51,20,173 
4359 DATA3,208,201 ,225,208,234,169,0,14i 
„4,212,141,21,208,964,173,232,3,24,105 
4360 DATAZ2O,141,232,3,144 ,3,258,233,3,23 
8,209 ,207,173,200,207,201 ,2,240,95,201 
4370 DATA3Z,240,74,201,4,240, 103,201 ,5,24 
0,66,201 ,6,240,39,201,7,240,120,201 

4380 DATAB, 240,54 ,201,9,240,83,201,10,24 
0,46,201,11,240,104,201 ,12,240, 71,173 
4390 DATA250,3,56,233,13,141,250,3,32,1& 
9,28,76,21,176,169,80,141,4,208,167 


<108> 
x198> 
<91> 


"<93> 


«453 
“228? 
372 
<171> 
<201> 
x977 
%229> 
s149> 
<172> 
<110> 
s116> 
x979> 
<148> 
<B> 
<205> 
2215 
34? 
<178> 
«1295 
<195> 
39? 
x247> 
x87> 
<18> 
<159> 
%37? 
<B> 
%157> 
<239> 
<a2> 
%41&7> 
«2357 





4400 DATA140,141,14,208,169,135,141,21,2 
08,1649,0,141,16,208,76,63,193,169,70 
4410 DATA141,64,208,169,130,141,8,208,169 
.200,141,10,208,169,64,141,16,208, 147 
4420 DATA20,141,12,208,169,123,141,21,20 
8,76,63,193,234,169,90,141,8, 208,169 
4430 DATA150,141,4,208,169,32,141,1&,208 
„169,40,141,10,208,169,55,191,21,208 
4440 DATA76,63,193,169,100,141,4,208,167 
‚170,141,14,208,169,10,141,10,208,167 
4450 DATAB,141,16,208,169,143,141,21,208 
»76,63,193,169,3,141 207 ,207,32,26,22 
4460 DATA169,25,141,209,207,32,148,20,32 
‚103,20,32,165,25,169,0,141,32,208,141 
4470 DATA33,208,141,21,209,170,189,72,19 
6,32,210,255,232,224,39,200,245,32,35 
4480 DATA22,76,111,196,147,17,17,17,17,1 
7,17,29,29,29,29,29,29,29,1592,00,82 

4490 .DATA69,03,83,32,70,73,82,69,32,7047 
9,92,32,76,69,86,69,76,32,51,32,32,178 
4500 DATAO,220,201,111,208,249 ,32,26,22, 
32,130,20,32,56,22,32,26,22,169,0,141 
4510 DATASZ,208,169,136,141,242,207,169, 
7,141,240,207,162,7,160,19,169,51,32 
4520 DATA164,20,232,232,232,224,32,144,2 
46,162,7,136,136,192,2,176,238,160,1 
4530 DATA169,50,32, 164,20, 232, 232,232,22 
4,32,144,246,162,10,160,10,32,164,20 
4540 DATA200,200,232,32,164,20,162,22,16 
0,16,32,164,20,200,200,232,32,164 ,20 
4559 DATA162,20,160,3,32,164,20,200,200, 
232,32,164,20,1&9,87,141,242,207,167 
4540 DATA1O,141,240,207,169,69,160,19,1& 
2,4,32,164,20,156,136, 192,2, 176,247 

4570 DATA1L60,1,32,164,20,160,19,162,32,3 
2,164,20,134,156,192,2,176,247,160,1 
4580 DATA32,164,20,169,0,170,157,998,33,2 
32,208,250,169,67,162,4,160,19,32,164 
4590 DATA20,162,32,32,164,20, 162,4, 160,1 
2,32,164,20,1642,32,32,164,20,162,4,160 
4500 DATAS,32,164,20,162,32,32,164,20,32 
‚35,22,32,44,22,169,0,141,28,208,141 
4510 DATA29,208,141,23,208,141,16,208,1& 
7,5,141,24,212,169,&,141,197,207,169 
4620 DATAZ8, 141,248,7,169,63,141,249,7,1 
59,11,141,39,208,141 ,40,208,169,157 
45309 DATA141,0,208,141,2,208,167,161,141 
„1,208,169,140,141,3,208,169,3,141,21 
4640 DATA208,32,198,25,169,0,141,41,208, 
234,254 ,234 ,234 „234 ,173,195,207,141 

4650 DATA196,207,169,41,141,250,7,141,25 
1,7,141,252,7,141,253,7,169,90,141,4 
4560 DATA208,141,5,208,1649,146,141,6,208 
„141,7,208,169,200,141,8,208,131,9,208 
4670 DATA169,250,141,10,208,141,11,208,1 
6&9,0,141,41,208,141,42,208,141,43,208 
4480 DATA141,44,208,141,194,207,141,193, 
207,149,44,141,254,7,169,42,141 ,255 
4690 DATA7,169,2,141,45,208,169,5,141,44 
+208,169,120,141,12,208,169,225,141 

4700 DATA14,208,169,100,141,15,208,173,3 
0,208, 208,251,160,0,140,199,207,185 

4710 DATABA,SB,153,184,135,200,208,247 ,1 
59,88,133,250,169,58,133,251,169,24 
4720 DATA133,252,169,57,133,253,150,0,17 
7,252, 145,250, 200,208,249,238,199,207 
4730 DATA173,197,207,201,19,209,3,76,85, 
198,76,99,198,198,251,165,250,56,233 
4740 DATA64,133,250,176,2,198,251,198,25 
3,165,252,56,233,64,133,252,176,2,198 
4750 DATA253,76,31,198,160,0,185,184,13& 
‚153,152,34,200,208,247,76,1,198,204 


Sompute mib 


<203> 
<195> 
<23> 
<250> 
<179> 
<213> 
<142> 
<117> 
<62> 
<69> 
<222> 
<241> 
<2a8> 
<85> 
<135> 
<52> 
93 | 
<195> 
<157> 
<> | 
<198> 
<215> 
<90> 
<34> 
<102> 
‚<B> 
<197> 
<225> 
<86> 
<b> 
<b6> 
<197> 
22> | 
<123> 
<62> 


“80> 





7/86 


4760 DAT&L97,207,208,46,169,6,141,197,20 
7,173,248,7,201,38,240,15,201 ,39,240 
4770 DATA22,167,38,141,248,7,32,160,25,7 
6,150,178,169,39,141,248,7,32,160,25 
4780 DATA7&6,150,198,167,40,141,248,7,32, 
160,25,206,196,207, 208, 157,173, 195,207 
4790 DATAL41,196,207,238,193, 207 ,208,27, 
258,194,207,173,194,207,24,105,100,141 
4900 DATA232,3,144,3,238,233,3,173,174,2 
07,201 ,19,208,3,76,180,200,173,0,220 
4810 DATA201,123,240,37,201,119,240, 11,2 
01,126,240 ,51 ,201,125,240,63,76,35,199 
4820 DATA173,0,208,201 ,255,240,246,238,0 
»208,258,0,208,238,2,20B,238,2,208,76 
4830 DATA212,198,173,0,208,201 ,83,240 ,22 
4,206,0,208,206,0,208,2064 ,2,208,20&: 
4840 DATAZ,208,76,212,198,173,1,208,201, 
100,240,202,206,1,208,204,3,208,76,212 
4850 DATA198,173,1,208,201,170,240,186,2 
38,1,208,238,3,208,76,212,198, 234,173 
A860 DATA30,208,240,11,41,3,240,7,201,3, 
240,3,76,119,200,173,5,208,208,8,173 
4870 DATA21,208,7,4,141,21,208,173,7,208 
„208,8,173,21,208,9,8,141,21,208,173 
4880 DATA9,2089,208,8,173,21,208,9,16,141 
»21,208,173,11,208,208,8,173,21,208 

4890 DATA9,32,141,21,208,204,5,208,206,5 
+208,209,32,173,195,207 ,201,2,240,9 

4900 DATA173,0,208,141,4,208,76,144,199, 
173,4,208,24,105,35,141,4,208,201,70 
4910 DATA176,3,76,128,197,206,7,200,206, 
7,208,208,16,173,6, 208,56, 233,85,141 
4920 DATA6,208,201,70,176,3,76,152,199,2 
06,9,208,206,9,208,208,14,173,8,208 

4930 DATAS6,233,33,141,8,208,201,70,176, 
3,76,1764,197,206,11,208,206,11,208,208 
4940 DATA15,173,10,208,74,105,90,141,10, 
208,201 ,70,176,3 „76,200,199,173,194 

4950 DATA207,201,2,176,3,76,116,200,258, 
13,208,238,15,208,173, 13,208, 201,60 

4960 DATA2O8, 18,173, 12,208, 201,72, 144,66 
„173,21,208,9,64,141,21,208, 76,56, 200 
4970 DATA201,210,208,51,173,21,208,41,19 
1,141,21,208,173,194,207,201,12,208 
4980 DATA19,147,10,141,45,208,169,46,141 
„254,7,173,194,207,201,6,208,10,169 

4990 DATA9,141,45,208,169,43,141,254,7,1 
73,12,208,24,105,90,141,12,2098,254,173 
5000 DATA15,208,201,60,208,18,173,14,208 
»201,72,144,44,173,21,208,7,128,141 

5010 DATA21,208,76,115,200,201,210,208,2 
9,173,21,208.41,127,141,21,208, 173,14 


5020 DATA208,56,233,90,141,14,208,173,19 
4,207,201 ,8,208,5,169,47,141,255,7,234 
5030 DATA7&,56,198,174,209,207,160,0,140 
„242,207,140,240,207,160,22,169,59,32 
5040 DATA164,20,232,232,232,142, 209,207, 
224,40 ,240 ,6,32,159,200,76,127,196,32 
5050 DATA159,200,76,214,25,32,200,30,162 
„130,238,39,208,238,40,208,169,1,141 
5060 DATA249,3,32,51,20,206,1,212,232,20 
8,236,32,165,25,96,169,2,141,195,207 
5070 DATA32,169,28,32,165,25,32,148,20,1 
62,0,142,21,208,189,221,200,32,210,255 
5080 DATA232,224,39,208,245,76,4,201,147 
„17,17,17,17,17,17,29,29,29,29,29,29 
5090 DATA29,152,80,82,69,83,83,32,70,73, 
82,69,32,70,79,82,32,76,69,86,69,76 

5100 DATA32,49,32,32,173,0,220,201 111,2 
08,249,169,14,141,33,208,76,199,27,0 
5110 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
‚0,0,0,0,0,0,0,0,120,169,0,141,11,212 


- 


<19> 
x11> 
«787 
si91> 
sB8> 
«118> 
<179> 
757 
«247> 
<189> 
«184> 
<105> 
<130> 
<193> 
<167> 
<95> 
<13> 
2257 
x45> 
<172> 
x185> 
<x117> 
<245F 
<122> 
<54> 


5337 


%30> 

<1974> 
<131> 
<103> 
<188> 
“2327 
%147> 
<169> 
<134> 
<23> 


programme 


5120 DATA141,19,212,169,5,141,24,212,169 
+75,141,12,212,149,76,141,19,212,167 
5130. DATA4HB,141,13,212,169,240,141,20,21 
2,167,33,141,11,212,169,17,141,18,212 
5140 DATA169,0,141,198,207,141,187,207,1 
69,117,141,20,3,169,201,141,21 ,5, 160 
51450 DATAO,140,190,207,200,140,199,207,8 
8,96 ,206,189,207,208,91,72,138,72,174 
5180 DATA190,207,187,244,201,141,7,212,2 
4,105,8,141,14,212,189,148,202,141,8 
5170 DATA212,141,15,212,189,52,203, 141,1 


89,207 ,232,224,130,144 ,47,152,0,238 


5180 DATA198,207,173,188,207,240,27,201, 
1,240,10,169,255,141,188,207,169,96 

5190 DATA141,19,212,169,0,141,11,212,169 
„17,141,18,212,76,207,201 ,169,33,141 
5200 DATAL1,212,169,17,141,18,212,142,19 
0,207,104,170,104,76,49,234,0,0,0,0 
5210 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
»0,0,0,0,0,0,0,0,226,0,226,0,226,133 
5220 DATASS,224,0,226,0,226,133,55,0,133 
,39,133,39,133,232,81,0,226,0,226,0 

5230 DATA2264,39,81,226,0,226,0,226,39,81 
„0,196,247,196,180,55,81,133,0,226,0 
5240 DATA2264,133,0,133,55,0,55,196,55,0, 
176,0,196,247,196, 180,55, 180,81 ,0,22& 
5250 DATAO,226,39,0,39,81,0,81,180,81,0, 
1968,247,196,180,55,81,133,0,133,207 

5260 DATA133,205,133,81,133,207,226,133, 
81,133,207,226,123,133,81,180,123,133 
5270 DATAB1,190,207,123,224,133,207,133, 
205,133,81,133,207,226,133,01,133,207 
5280 DATA226,123,133,81,190,123,133,81,1 
80 ,207 „123, 226,0,0,0,0,0,0,0,0,0,0,0 


5290 DATAO,0,0,0,0,0,0,0,.0,0,.0,4,0,4,0,4 
„6,8,4,0,4,0,4,6,8,0,6,5,6,6,6556,7,0 
53200 DATA4,0.4,0,4,6,7,4,0,4,0,4,6,7,0,9 
„10,9,5,84745,0,450,4,6,0,6,8,0,8,9 
5310 DATAA,0,?,0,9,10,9,8,8,8,7,0,4,0,4, 
&,0,6,7,0,74847505,9,10,9,8,8,7,6,0,6 
5320 DATAS,6,5,6,7,6,554,6,7,6,5,4,5,6,7 
„8,5,6,7,8,55,5,4,6,57645,637 364,5, 44,6 
5330 DATA7,6,5,4,5,6,7,8,5,8,7,9,5,5,4,0 
„0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
5340 DATAO,O,0,6,146,1,6,18,12,6,1,6,1,6 
WERTHER RT 
5350 DATA18,12,&,1,5,1,6,18,30,&,12,646, 
2,6,5,48,12,6,14656,1,646,146, 18,30 
5360 DATA12,6,1,6,4,6.6,6,.19,30,12,6,1,6 


»641,676,1,6, 18,30, 12,656 
5370 DATA6,24,24,24,24,12,12,12,12,24,12 
,12,12,12,48,24,24,12,12,24,24,12,12 
5390 DATA24,24,49,24,24,24,24,12,12,12,1 
2,24,12,12,12,12,48,24,24,12,12,24,24 
5390 DATA12,12,24,24,48,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

5400 DATAO,0,0,0,0,0,0,0 

5410 


ef 
+ 
LA 
je" 
[1 


PRINT" IDOHN, SPACEHFASS{SPACEHL" 
FORI=2048T011939: READA: B=B+A=: NEXT 
5450 IFB< +1009820FTHENPRINT" {DOWN SPACEIF 
EHLERTSPACE} IN{SPAGEIDATAS"sEND 
5470 : 
5480 RESTORE 
5499 PRINT"{DOHN SPALEHPASSTSPACEI2” 
5500 FORI=2048T01103#:READA:POKEI „A:NEXT 
5519 FRINT"{DOWH SPAGCEHPROGRAMMTSPAGEYJE 
TZT{SPACE} ABSPEICHERN" 
5320 POKE46,44 

ENDE DES LISTINGS 











Sompute mib 


<89> 
<194> 
<12> 
x45> 
<29> 
2246: 
x225> 
<138> 
<121> 
<222> 
<213> 
<75> 
<106> 
<252> 
<195 
«206% 
<56> 
<227> 
<225 
<b> 
<117> 
<127> 
<71> 
<91> 
<181> 
<155> 
<223> 
<149> 
<4> 
<113> 
<123> 
<133> 
9B> 


x11> 


<71> 
*173> 


<148> 
x177> 


<127> 
<50r 
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Fantastisches Z 


Was gibt's Neues auf dem Software-Markt 


Hi-EDDI plus 


ramtasuschnes Zeichenp 





Ay 


Mit Hi-EDDI plus stellt Markt & Technik ein 
Programm vor, das nicht wie üblich als 
Fertigprodukt aus einem großen Softwa- 
rehaus stammt, sondern von einem An- 
wender, Conputerfan und Student der 
Elektrotechnik zunächst nur für eigene 





Zwecke entwickelt wurde. 
Der erste Erfolg stellte sich ein, als das 
Programm in einer Computerzeitung ver- 
öffentlich wurde. Seitdem meldeten sich 
bei dem Autor eine Vielzahl von Anwen- 
dern mit neuen Tips und auch Wünschen, 


NEU für den Schneider CPC 





BASIC COMPILER V2.0 


Das Softwareteam T. Brandt und F. Thilen 
hat eine verbesserte Version ihres. Basic- 
Compilers auf den Markt gebracht, Die 
Version 2.0 vereinigt alle Features seines 
Vorgängers in sich, wurde aber in einer 
entscheidenden Sache verbessert: Spei- 
cherplatz ist nun auch für längere Pro- 
gramme vorhanden. Mit der neuen Ver- 
sion können nun auch eigenständige Pro- 
gramme entwickelt werden, wobei aller- 
dings der Nachteil der vom Locomotive 
Basic abweichenden Syntax nach wie vor 
vorhanden ist. Ebenfalls besteht die Mög- 
lichkeit, fast jedes beliebige Textpro- 


gramm zur Programmerstellung zu ver- 
wenden, allerdings fällt dann die Möglich- 
keit weg, die Syntax eines Programmes 
vor dessen Compilierung testen zu lassen. 
Alles in allem ein Programm, das haupt- 
sächlich zu Optimierung und Geschwin- 
digkeitssteigerung bereits. bestehender 
Programme eingesetzt werden kann. Für 
den Software-Entwickler sicher nicht un- 
interessant. 

Vertrieb: Software Team 

Joachim Guenster 

Mühlenstr. 12 

5431 Boden 
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eichenprogramm. tür den 6-54 


die Hans Haberl für eine Vielzahl von Ver- 
besserungen und Erweiterungen verwer- 
tete. Das Ergebnis ist HI-EDDI plus, ein 
Malprogramm mit vielen ganz besonde- 
ren Eigenschaften. HI-EDDI + nutzt zu- 
nächst einmal konsequent den High-Re- 
solutionmedus, um die größtmöglichste 
Bildauflösung auf dem G-64 zu erreichen. 
Damit sind mit HI-EDDl technische Zeich- 


-ı nungen kein Problem mehr. 


Technisches Zeichnen wird zudem noch 
unterstützt durch Gonstruktion-Sets, die 


zum Beispiel Schaltbildsymbole enthal- 


ten, und der Möglichkeit, bis zu 6 Bild- 
schirme zu einem Großbildschirm zusam- 
menzufassen und nahtlos ausdrucken zu 


‚lassen. Wollten wir alle Vorzüge dieses 


Zeichenprogramms aufführen, wäre der 
Rahmen dieser Besprechung sicher ge- 
sprengt. : 

Auf zwei besondere Dinge sei jedoch hin- 
gewiesen, HI-EDD! + besticht vor allem 
durch seine exzellente Dokumentation in 
Buchform, die unserer Meinung nach der 
beste Schutz gegen unerlaubtes Kopieren 
ist. Die 48,-- DM lohnen sich schon allein 
für die fantastische und sehr verständlich 
geschriebene Anleitung, die auch Wortin- 
dex, Befehlsübersicht und ausführliche 
Assemblerdokumentation beinhaltet, was 
man bei vielen Programmen vergeblich 
sucht. Besonders gefallen haben uns auch 
die Runtime-Module, mit denen man die 
fertigen Bilder auch in eigene Programme 
einbinden kann, auch in eigene Grafikad- 
venture! HI-EDDI + besitzt Druckertreiber 
für die meisten gängigen Drucker und ar- 
beitet mit Joystick und Koala-Pad als Ein- 
gabegeräte zusammen. (uk) 


HI-EDDI plus, Markt & Technik, 
8013 Haar, Preis: 48,- DM 
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In den letzten Wochen wurde das Soft-und 
Hardware Angebot der Fa. Kingsofterheb- 
lich erweitert, So wurden die Spielpro- 
gramme 


Bongo onstruction Set Preis 25,-- DM 
Galaxy Preis 19,-- DM 
Ghost Town Preis 19,-- DM 
Space Pilot Preis 25,-- DM 
Tom Preis 25,-- DM 
Winter Olyrıpiade Preis 29,-- DM 


neu mit in das Liefersortiment aufgenom- 


men. Die Programme Galaxy, Ghost Town, 


Grandmaster und Tom sind auch alsSam- 
melkassette erhältlich und kosten im 
PLUS-Paket zusammen 39,-- DM. 

Alle Programme sind mit eingebautem 
Turbotape auf Kassette abgespeichert, so 
daß die Ladezeit der einzelnen Program- 
me deutlich verkürzt wird. Sie beträgtteil- 
weise nur 1 Minute oder liegt noch darun- 
ter. 


Das Soft- und Hardware-Angebot für C-16/116 wurde erweitert 


Das Programm Winter Olympiade lag der 
Redaktion leider nur als Demo-Version vor. 
Aber der kurze Einblick in dieses Pro- 
gramm, läßt auf einen absoluten Knüller 
hoffen. So wird das Spiel insgesamt 6 Dis- 
ziplinen beinhalten (Abfahrt, Biathlon, 
Bobfahren, Eissschnellauf, Skispringen, 


Slalom} und für 4: Mitspieler ausgelegt . 


werden. Die Eröffnungszeremonie, die Na- 
menseingabe, die Landesflaggen und die 
Hymnen werden selbstverständlich nicht 
fehlen. Der Aufbau ist also ähnlich wie bei 
den Winter Games angelegt. 


Als weiteres sind auch einige Utilities in 
dem Programmangebot enthalten. So 
wird u. a. ein 


Grafik-Designer Preis 19,-- DM 
(Zeichensatzeditor mit Animation) 


Micro-Datei Preis 29,-- DM 


Dateiverwaltung in freiem Maskenaufbau 


Betrifft: Autorenrechte 








Aus gegebenem Anlaß müssen wir auf ei- 
ne besondere Form ‚des Raubkopierens 
‚hinweisen. Im Verlag mußten wir wieder- 
holt feststellen, daß unter den eingesand- 
ten Programmen unserer Leser Software 
war, deren Urheberrechte nicht oder nicht 
mehr bei den Einsendern lagen. in einigen 
Fällen hatten die Autoren ihr Programm 
schon in anderen GComputerzeitungen ver- 
öffentlicht und Honorar kassiert. In einem 
anderen Fall hat ein Leser das kopierte 
Programm eines Bekannten eingeschickt 
I und Autorenrechte geltend gemacht. Die- 
se Form des Raubkopierens kann böse 
Folgen für die Einsender, bei Minderjähri- 
gen auch für die Eitern, haben. Nicht im- 
mer sind die eigentlichen Autoren bereit, 
einem außergerichtlichen Vergleich zuzu- 
stimmen. Sie werden sich jedoch in erster 
Linie an den Verlag wenden, der wieder- 
um sich an dem Übeltäter schadlos hal- 
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ten muß. Anders als beim unerlaubten Ko- 
pieren von geschützter Software ist der 
Kopierer von Programmeinsendungen 
nicht durch Anonymität geschützt und 
muß in den allermeisten Fällen mit Straf- 
verfolgung rechnen. Im interesse unserer 
Leser und um unnötigen Ärger vor allem 
für Jugendliche zu vermeiden, bitten wir 
Programmeinsender, nur Programme zu 
schicken, die in allen wesentlichen Teilen 
aus eigener Feder stammen und uns dies 
in dem Coupon für Programmautoren mit 


. einer separaten Unterschrift zu bestäti- 


gen. 


Merke! 
Keine. Software-Unterlagen einsenden, 


wenn man nicht in besitz der Urheber- 
rechte ist, um unnötigen Ärger zu ver- 
meiden. 
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Micro Kalk Preis 29,-- DM 
(Tabellenkalkulation, einfach zu bedienen) 
Micro Text Preis 29,-- DM 
Textverarbeitung u.a. mit Blocksatz) 

Music Master Preis 29,-- DM 
(Musik-Pgm. mit Synthes. & Sequenzer) 
Painibox Preis 25,-- DM 
(Mal- u. Zeichenpgm. ähnlich Koala Paint) 
Turbo-Tape Preis 19,-- DM 


(8mal schneller laden und speichern) 


geliefert. Wer also einige nützliche An- 
wenderroutinen benötigt, sollte auf diese 
Angebote zurückgreifen. 


Im Hardware-berich werden Joysticks, 
Joystick-Adapter, Speichererweiterungen 
u.v.m. angeboten, die zu einem sinnvollen 
Ausbau ihres Systems beitragen. 


Bezugsadresse: Kingsoft, Schnackehusch 4, 
5106 Roetgen 


Achtung... 


Die nächste C-16/116- 
Sonderausgabe ist ab 


16. Juni 1986 


überall im Zeitschrif- 
tenhandel erhäftlich. 





Versäumen Sie nicht 
diese Ausgabe! 


Es gibt eine Riesen- 
Gewinn-Chance und 
wie immerjede Menge 
„Futter“ für Ihr System. 


——e 
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Schickt uns Eure Assemblerroutinen! 





| Basıic-Ex tension für Commodore 64 





Tolles Programm, um Befehlserweiterungen selbst zu erstellen | 


Thomas Lais hat uns ein sehr gutes Pro- 
gramm geschickt, um kurze Assembler- 
routinen mit Basicbefehlswörtern aufzu- 
rufen. Unser Appell an unsere Leser: 
Schickt uns Eure kurzen Assemblerpro- 
gramme, damit sie von den anderen Le- 
sern mit Basicextension in eine Befehlser- 
weiterung eingebunden werden können. 
Im folgenden erklärt Thomas Lais selbst 
den Aufbau und die Bedienung seines 
Programms, : 


Ein großer Minuspunkt des G-64 
ist sein recht mageres Basic. 


Dem kann man abhelfen, indem man Ba- 
sicerweiterungen verwendet - seien es 
käufliche oder in Zeitschriften veröffent- 
lichte. Aber auch das ist nicht immer die 
beste Lösung, denn wahrscheinlich fehlt 
gerade der Befehl, den man für ein be- 
stimmtes Programm braucht. Also bleibt 
nur eine Basicerweiterung selbst zu 
Schreiben - und steht dann vor dem Pro- 
blem, diese einzelnen Befehle aufzurufen. 
SYS Aufrufe zu verwenden, führt mit Si- 
cherheit zu Fehlern, wenn 2 Adressen ver- 
wechselt werden. Am besten ist es doch, 
den Aufruf mittels eines Befehlswortes zu 
vollziehen. Und dieses Programm hilft da- 
bei! Sie benötigen nur das oder die As- 
semblerprogramme, die dann mittels Be- 
fehlsworte aufgerufen werden sollen, die 
auf Diskette oder Kassette vorliegen müs- 
sen. Das Programm muß dabei bereits an 
der Stelle liegen, an der es auch in der Be- 
fehlserweiterung liegen soll. 

Nach Starten des Programms können Sie 
wählen zwischen der Neuerstellung einer 
Basicerweiterung und der Bearbeitung ei- 
ner bereits vorhandenen Erweiterung. 
Zunächst zum Punkt Neuerstellung. Das 
Programm fragt die Startadresse und die 


Endadresse der Erweiterung ab und über- 
prüft die Eingaben. Erlaubt sind nur die 
Bereiche über 12800 (darunter liegt das 
Programm) bis 40959 (ab da beginnt der 
Basicinterpreter) oder von 49152 bis 
53247. Danach wird das Assemblerpro- 
gramm, das die Dekodierung der Befehls- 
worte und den Aufruf der einzelnen Routi- 
nen vornimmt, in den Bereich ab der 
Startadresse gepoked. Ebenso die Datas 
für das fest installierte Befehlswort QUT 
und die Datas für diesen Befehl, der ein 
Ausschalten der Erweiterung bewirkt. Die 
Datas sind für eine Startadresse ab 49152 
ausgelegt. Wurde eine andere Startadres- 
se gewählt, wird das Assemblerpro- 
gramm noch entsprechend verändert. 
Nun ist die Befehlserweiterung initialisiert 
und Menü 2 wird angesprungen. 

Im Menü 2 stehen 5 Möglichkeiten zur 
Wahl: Anzeige bisheriger Befehle, Befehl 
löschen, Basicerweiterung abspeichern, 
Laden eines neuen Befehls und Ende, 
Anzeige bisheriger Befehle zeigt die bisher 
vorhandenen Befehle samt der Start- 
adressen an. Befehl löschen streicht einen 
Befehl aus der Befehisliste. Der Befehl OUT 
ist fest eingebaut und kann nicht gelöscht 
werden. $aven der Befehlserweiterung si- 


“chert das gesamte Assemblerprogramm 


auf Diskette oder Kassette, 

Beim Laden eines neuen Befehls wird zu- 
nächst überprüft, ob noch Platz ist in der 
Erweiterung. Es können maximal 50 Be- 
fehle pro Befehlserweiterung verwendet 
werden, .wobei die Gesamtzahl der Be- 
fehlshuchstaben kleiner als 270 sein muß, 
Nach Eingabe des Namens und des Gerä- 
tes wird das Assemblerprogramm gela- 
den. Die Startadresse und die Endadresse 
werden automatisch bestimmt. Falls diese 


- beiden Adressen in einem falschen Be- 


das. War aber alles in Ordnung, wird nun 
das neue Befehlswort eingegeben und 
eingebunden. ACHTUNG: Das Programm 
erkennt nicht, ob der neu geladene Befehl 
einen bereits vorhandenen ganz oder teil- 
weise überschreibt. Das aber führt dazu, 
daß es bei einem Aufruf des überschriebe- 
nen Befehls zu einem Programmabsturz 
kommt. Vermeiden Sie dies, indem Sie 
Aufzeichnungen über die Länge und die 
Lage der einzelnen Assemblerprogramme 
führen. 

„Ende“ beendet das Programm. Wurde ei- 
ne Veränderung am Assemblerprogramm 
vorgenommen, also ein Befehl gelöscht 
oder geladen, ohne das die geänderte Ver- 
sion gespeichert wurde, kommt es noch 
zu einer Sicherheitsabfrage ob das Pro- 
gramm auch wirklich beendet werden 
soll. Bei Eingabe von N wird zum Menü 2 
gesprungen, 

Wird einer der 3 Punkte „Befehl löschen“, 
„Befeht laden“ oder „Saven“ versehentlich 
angewählt, kann durch die Eingabe von 
„=“ bei der ersten vom Programm erwar- 
teten Eingabe zum Menü 2 zurückge- 
sprungen werden. 

Wurde bei Menü 1 der Punkt „Bearbeiten ei- 
ner Basicerweiterung“ gewählt, werden der 
Name der Erweiterung und das Gerät ab- 
gefragt, dann die Erweiterung geladen, 
Die Startadresse und die bisherige End- 
adresse werden automatisch bestimmt 
und ausgegeben; dann wird die Eingabe 
einer neuen Endadresse erwartet. Diese 
muß größer oder gleich der bisherigen 
Endadresse sein. 

Wird das Programm aus irgendwelchen 
Gründen unterbrochen, kann es mit GOTO 
3050 ohne Datenverlust fortgesetzt wer- 
den. 

Die abgespeicherte Befehlserweiterung 


reich liegen, meldet das Basicprogramm : wird mit LOAD “NAME“,8,1 oder ‚1,1 geladen 
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programme. 


und initialisiert mittels $Y$ SA, wobei SA die Startadresse ist, Ich hab's 


‘ab der das Programm liegt. 


[ ohne Basie- 
extension: 








Liegt die Erweiterung im Basicspeicher, also unterhalb 
40959, so muß vor dem Laden der Basicspeicher entspre- 


chend beschränkt werden. . 


10 REM HAHN III IR EHRE 


20 REM ###* [2202 
30 REM + BASIC-EXTENSION “+ 
4Q REM NH =======2=2=2=2 2222222 222 
50 REM #r* Ku 
&9 REM re iC) 19896 BY E22" 
70 REM *## ARTEXSOFT u 
80 REM ###* rk 


90 REM HH TER II AI TEE HEINE 
100 tF A=0 THEN FDKE 52,50: POKES& „SO: ELR 
110 IF A=1 GOTD 7270 

120 IF A=2 GOTQ 2160 

130 DEF FNL{XI=X- (INT (X/254) #256) 

14CG DEF FNHLX) =INT {X/256) 

200 LLS="ISPACEZ3IY" 

300 FOR I=710 TO 735 

310 ı READ P:POKE I,P 

320 NEXT 3 

350 DATA162,8,160,1,32,19854,2553,169,255,1 
62,224,150,2,32,189 ,2553,167,251 ,162 

360 DATA0,150,0,32,216,255,7& 

700 REM x#rrrr## 

730 PRINTCHR$ (147) 

740 PRINT" {RVSONFRRRRHISPACEIHÄUPTMENUET 
SPACEIAHRRHLRVSOFF>" 

750 PRINTEPRINT=PRINT"BITTETSPACEIWAEHLE 
Na “ 

7&0 PRINTIPRINT=PRINT" (1) {SPACEINEUERSTE 
LLUNG{ISPACEFBASITCERWEITERUNG" 

779 PRINT: FRINT" (2) {SPACEFBEARBETTUNGTSE 
ACE}BASITCERWEITERUNG" 

780 BET A$: IF A$="Z" GOTO 2000 

790 IF As<>"1“ GOTO 700 

1000 REM 

1010 REM #*#*x# NEUERSTELLUNG FH 

1020 REM 

10509 PRINTCHR#(147} 

1060 FRINT*{SPACE RVYSONF#eHrtSPACEFNEUERS 
TELLUNG{SPACEIBASICERWEITERUNG{SPACEI HH 
{RVSUFFF" r 
1070 PRINT=PRINT:PRINT 

1080 INFUT"STARTADRESSE"3BA 

1090 PRINT:PRINT 

1100 INPUT "ENDADRESSE{SPALE2F"ZEA 

1110 IF SA>=EA GOTO 11B0 2 

1120 IF (5A>12800 AND. SA<40940 AND EA<S4O 
9760) GOTO 12006 " 
1130 IF (5A>49151 AND SA<S13#4095 AND EA< 
15#4095) GOTO 12090 

1180 PRINT: PRINT:PFRINT"FALSCHETSPACEHEIN 
GABEN. {SPAGEFBITTEISPACEIKORRIGIEREN" 
1190 FOR I=1 TD 2000:NEXT:GOTO 1000 

1200 £ 

1210 FOR I=5A TO SA+H143:READ Pı FOKEI,P=N 
EXT 2 

1220 DATA149,11,141,8,3,169,192,141,9,3, 
9765,532,115,0,144,120,201,90,1768,11& 

1230 DATA201,65,144,111,141,139,192,162, 
0,142,140,192,169,192,133,252,167 

1240 DATA242,133,251,180,0,259,140,392,1 
77,251 ,48,353,207,122,208,4,200,76 

1250 DATA45,1792,175,140,192,205,141,192, 
240,67 ,209,177,251,16,251,200,24,152 
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<15> 
<17> 
<11> 
<397> 
<a7> 
<200>, 


<157 > 


«777 


<95> | 


<91> 
«18> 
<243> 
<1094> 
<195> 
<100> 


<1890> 
x195> 


i Baal! n 
N ul dl 


er N 
Ally ir il) 

f, Li DDR N] \ \ h 
ii! N hi ' 


1 } 


1 


ih 


12650 DATA101 ,251,133,251,144,2,230, 252,7 
6,40,192,41,127,209, 122, 208,34,200 

1276 DATA24,152,101,122,133,122,144,2,23 
0,123,173,140,192,10,170,199,140,192 
1280 DATA141,119,192,189,141,192,141,120 
‚192,32,0,194,76,234,167,173,140,192 
1290 DATA205,141 ,192,208,194,173, 139,192 
‚56,76,231,167,1,1,1,0,174 

1300 FOR I=5A+242 TO SBA+2444READ PıPOKE 
I,PsNEXT 

1310 DATA7FI,85,212 

1320 FOR I=5A+512 TO 5A+522>5READ P:PÜkE 
I,P=:NEXT 

1330 DATA169,228,141,9,3,169,167,141,9,3 
9a ; 

1400 IF 5A=49152 GOTO 1400 

1500 POKE SA+1,FNL{SA+11):POKE SAr& ,FNHL 
SAH) 

1510 POKE SA+25,FNL1(5A+139) :POKE SA+26,F 
NH (SA+139) 

1520 POKE 8A+30,FNL (5A+140) sPOKE 5A+I1,F 
NH (S5A+140). 

1530 POKE SA+33,FNL (SA+242) sPIKE SA+r37,F 
NH (SA+242) 

1540 POKE SA+43,FNL(EA+140):POKE SA+44,F 
NH (SA+140) 

1550 FÜKE 5A+35 ,FNL (SA+45) ıPDKE SA+S56,FN 
H(SA+45) 

1560 POKE SA+58,FNL1SA+140}:PDKE 8A+59,F 
NH (5A+140) B 
1570 POKE SA+61,FNL (SA+141):POKE SA+62,F 
NH (SA+141)} y 

1580 POKE SA+82,FNL{SA+40)EPOKE SA+B3,FN 
Ht5A+40} 

1590 FÜKE SA+102,FNL (SA+140) :POKE SA+r103 
„FNH (SA+140) 

1600 POKE SA+107 ,FNL (SA+140) :PDKE SA+108 
„FNH (SA+140) 

1510 POKE SA+110,FNL(SA+119):POKE SArlil 
„FNH(SA+119 

1520 POKE SA+113,FNL (5A+141) ıPOKE SAr114 
„FNH(SA+141) 

1630 POKE SA+116,FNi_i(SA+120) :POKE SA+117 
„FWH<SA+120) : 
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<125> 
<116> 
<79> 

<212> 


97 
34 > 


<6> 


*154> 
<121> 


x209> 
<91> 
<B9> 
<151> 
<228> 
<195> 
<170> 
<48> 
<240> 
x7> 
<102> 
xa0> 
<194> 


<108> 
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1640 POKE SA+125,FNL.(8A+140) sPOKE SA+126 
„FNHSA+140) 

1650 POKE SA+128,FNLISA+141):POKE SA+129 
„FNH(SA+141) 

1660 POKE SA+133,FNL(SA+139) ı POKE SA+134 
„ENH(SA+H139) 

1670 POKE SA+142,FNL (SA+512) sPOKE SA+143 
„FNHSA+512) 

1800 PRINT=:PRINT:PRINT 

1810 PRINT" {SPACEIDIE{SPACE}BASICERWEITE 
RUNS{SFACE3 IST{SPACEIINITIALISIERT" 

1900 PRINT=PRINTTAB (10) "ZUMLSPACEFMENUET 








SPACEIYMIT{SPACE RVSONYSPACELRVSOFFEN" 
1910 GET As: IF As<SY"ISPACEI" GOTD 1910 
1920 GOTO 30509 

2000 REM 

2010 REM ##ur%# LADEN BASICERW ####% 
2020 REM 

2050 PRINTCHR$ {147} 

2050 PRINT"{SPAGEZ RVYSONF#RaRH{SPACEILAD 


EN(SPACEFBASICERWEITERUNG {SPACE RUHR CRV 
SQEF}" 

2080 PRINT=PRINT: INPUT*NAME{SPACEIDERTSP 
ACEF}ERWEITERLNG" ZNAF 

2090 IF NAS=-"" GOTO 2050 

2100 IF NAs="_” GDOTO 730 

2110 FRINTs INPUT" {AVSANYK{RVSOFFIASSETTE 
VERVSONIDERVSGEFIISKETTENSGES 

2120 IF GE$S<>"D" AND GE$A>"K" GOTO 2050 
2130 IF GE$="D" THEN GE=8B 

2149 IF BE#="K" THEN GE=1 

2150 A=2:LDAD NAs,BE,1 

2140 IFGE=1THENSA=PEEK (829) +PEEK (830) #25 
6: EA=PEEK (831) +PEEK (832) #256-12 B0T02210 
2170 EA=PEEK (174) +PEEK 1175) #2564—1 

2180 OPEN 2,8,2,NA$+",P,R" 

2190 GET#2,A$:GET#2,B$:CLOSE 2 

2200 SA=ASTLAS+CHRE (0) J +ASC (BEHCHREF (O1) # 
256 

2210 PRINT=:PRINT: PRINT"BASICERWETTERUNGT 
SPACE RVSONF"'NAF"TRVYSOFF SPACEIGELADEN” 
2220 FRINT:PRINT"STARTADRESSE: "5A . 

2230 PRINT: PRINT"BISHERIGETSPACEIENDADRE 
SSE: "EA 

2240 FRINT: INPUT "NEUE{SPACEIENDADRESSE"; 
FF 

2250 IF FF<XEA GOTO 2240 

2250 PRINT:FRINT"BASICERWEITERUNGTSPACE} 
BETRIEBSBEREIT" 

2270 PRINT: PRINT+PRINTTAB (10) "ZUM{SPACE} 
MENUECSPACEIMITISPACE RVSONISPALELRVSOFF 
y" 

2280 BET A$:1IF As="{SPACEI”" GOTO 3050 
2290 6GTO 2280 

3000 REM 

35010 REM ###r* BEARBEITEN RER 

3020 REM 

3050 FRINTCHR# (147} 

3060 PRINT” {SPACE RVYSON}##3#{5SPACEIBEARB 
EITUNG{SPAGE>BASIGERWEITERUNGTSPACE} we 
{RVSOFF}Y"“ 

3070 FRINT=PRINT"BITTE{SPACE>WAEHLEN: * 
3080 FRINT:PRINT 

3100 PRINT” (1I {SPACEFANZEIGETSPAGE}BISHE 
RIGE{SPACEIBEFEHLE”" 

3110 PRINT=PRINT” (2) {SPACEFBEFEHL{SPACEI" 
LDESCHEN" 

3120 FRINT:PRINT" (FI {SAACEFBASICERWEITER 
UNG{SPALEISAVEN” 

31350 PRINT=PRINT" (4) {SPACE?LADEN{SPACEIN 
EUEN{SPALE}BEFEHLS" 

31406 PRINT:PRINT" (5) {SPALCE}YENDE” 
































*218> 
<124> 
<117> 


<104> 
<204> 


<121> 


<206> 
<s132> 
<202> 
<102> 
«132> 
x122> 
<218> 


<148> 
<2477> 


<170> 


797 
A143 


<150> 


<168> 
<214> 
«7773 

x92> 

x247> 
<102> 
x197> 


<122> 
<200F 
“236> 
<120> 
“221> 
<230> 


215> 
<48> 


3200 GET A$: IF As<"1" OR A$>"5" GOTO 320 
E) 

3220 ON ASC(A$)—-48 GOTO 4000 ,5000,6000,7 
000,8000 

4000 REM 

4010 REM #+#### ANZEIGE #uur3 

4020 REM 

4050 PRINTCHR# (147) 

4060 FRINT"{SFACE RVSONIRRREH{SPACE}ANZE 
IGENTSPACE} BISHERIGE {SPACE}BEFEHLETSPACE 
ZREHRHLRVSOFER," 

4100 I=1:J=5:K=-5A+242:L=5A+142 

4110 FOKE 214,1: PRINT:D$=*" 

4120 D$=D$+CHR$ (PEEK {K) AND127) 

4130 IF (PEEK<K)AND1Z8)=0 THEN K=ek+1:G0T 
0 4120 

4140 Z=PEEK (LI +PEEK(L+1) #256ık-K+1 

4150 PRINTD$TAB (25) Z 

4170 I=I+1:J=J+1:L=L+2 

4180 IF I>PEEK(SA+141) GOTO 4300 

4170 'IF J<20 GOTO 4110 

4200 POKE 214, 22: PRINTSPRINTTAB (B) "WEITE 
RISPACE>MITTSPACE RVSONYSPACERVSOEFY" 
4210 GET A$sIF ASCH"tSPALEI" GOTO 4210 
4220 FOR T=5 TO 22:POKE 214,T:PRINT:PRIN 
TLL$:NEXT 

42509 J=5ıG0OT0 4110 

4300 POKEZ14 ,227PRINT:PRINTTAB (10) *"ZIM{S 
PACE}MENUETSPACEIMITÄSPACE RVYSONYSPACETR 
VSOFF}” 

43310 GET A3ıIF ASSP"ISPACEI”" GOTO 4310 
4320 GOITO 3000 f 
5000 REM 

5010 REM #4=## BEFEHL LUDESCHEN #rae# 
5026 REM 

5050 PRINTCHRE (147) 

5060 PRINT"{SPACES RYSONIERREHTSPACEIBER 
EHLTSFACEYLOESCHENTSPACE FR {RVSOER}" 
S1i00 PRINT:PRINT: INPUT"ZULSFACEFLOESCHEN 























DER{SFPACEFBEFEHL" BES 
5130 IF BE#="" BOTD 5050 
5140 IF BE#="_" GOTO 5050 


5170 IFBE$="OUT"THENPRINT:PRINT"GBEHTTSPA 
CE3NICHT! "2 FORT=1T03000: NEXT: G0T05050 
5180 BN$=LEFT$ (BE$,LEN (BES) -1}+CHRELASO 
RIGHTS(BE$,1)) OR 128) 

5200 I=11J=5A+242:K=1 

5210 L=J 

5220 IF ASC(MID$ (BN$,1,1))=PEEK(T) GDTO 
5400 

5230 IF PEEK(SA+141)<Kk BOTO 5300 

5240 IF (PEEK(TIAND128)=0 THEN J=J+11G0T 
0 5240 

5250 J=J+1: I=1cK=K+1:G0T0 5210 

5300 PRINT=:PRINT=PRINT"DIESER{SPACE}BEFE 
HL{SPACEI ISTXSPACEIHHIERTSPACEINICHT LSPAC 
EIVORHANDEN! ® 

5310 PRINT:PRINTTAB (10) "ZUM{SPACEIMENLET 
SPACEIMITISPACE RVSONYSPACEXRVSOFFI" 
5320 GET A$: IF A$="ISPACE>" GOTO 3050 
5330 G0TO 5320 

5400 IF (PEEK(TAND 128)=124 GOTG 5500 
5420 I=J+1 I=I+1 

5430 IF I<=LEN(BN$) GOTG 5220 

5440 B0T0 5240 

5500 IF K=PEEK (5A+141) BOTO 5650 

5510 I=J+1:M=K 

5520 IF (PEEK{DANDI28)=0 THEN I=I1+41:G0T 
0 5520 

5530 IF PEEK(SA+141)>M THEN M=M+13 I=I#lr 
G0TO 5520 

5540 FÜR T=L TO 1+L-J-1 
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'<£189> 


xS31> 
<42> 
<67> 
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so> 


<255> 
x76> 
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<182> 
<131> 
<252> 
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<297> 


<255> 
<31> 
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<45> 
<194> 
<42> 
<84> 
<165> 
<153> 
<158> 
<238> 
<109> 


<> 


<240> 
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5550 x POKE T,FPEEKtT+J+1-L} 

5560 NEXT 

5570 FOR T=S5A+140+2=K TO SA+139+2»PEEK (5 
Ar141) 

5580 a POKE T,PEEK(T+2} 

5590 NEXT 

5650 POKE SA+141  ,PEEKISA+141) 1 

S6A0 ZZ=1 

5470 PRINTEPRINT"BEFEHLTSPACEIBELOESECHT. 
"sPRINT=APRINTTAB (10) "ZUMLSPACEIMENLIETSPA 
CEIMITSPALE RVSONYSPÄCE{RVSOFF}" 

5680 GET Ast IF At="tSPACEI" GOTO 3050 
5690 GOTD 5489 

&000 REM 

5010 REM xuaenu SAVEN ra“ 

&0RO REM 

6050 PRINTCHRS(14T 

&060 PRINT"ISPACE RVSON)IReREe SPACEISAVE 
NISPACE}BEFEHLSERWEITERUNGTSPACEIWEREHLR 
VSOFF>" 

6090 PRINT:PRINTs INPUT "PROGRAMMNAME”3JPNS$ 
6100 IF PN6="_" GOTO 3050 

6110 IF PN$="" OR LENIPN$) >14 GBOTO 4059 
6120 PRINT:PRINTs INPUT" {RVSONIKIRKSOEFIA 
SSETTE/{RVSORFDIRVSOEFIISKETTE" GES 

6130 IF BE$<C>"K" AND BES<>"D" GOTO 5050 
6140 IF GE$="K" THEN GE=1 

6150 IF GE$="D" THEN GE=8 

6200 FOKE 711,GE 

&210 POKE 71B,LENIPN$) 

&220 POKE 251,FNL (SA) ıPOKE 252,FNH (SA) 
6230 POKE 729 ,FNLIEA+H1)S:POKE 731, FNHIEA+ 





6240 FOR T=1 TO LEN(PN$):POKE 735+T,ASCt 
MIDS<PNS,T,13)2NEXT 

5260 SYS 710 

6320 ZZ=0 

&500 PRINT:PRINTSPRINT"SAVENTSPACEIBEEND 
ETISPACEY !" 

6510 PRINTSPRINT:PRINTTAB (8) "ZUM{SPACEIM 
ENUE{SPACEIMIT{SPACE RVSONYSPACE{RVSOFF) 
n 


6520 BET A$: IF A$<>"{SPACE>" GOTO 6520 
65350 GOTO 3050 

7000 REM 

7010 REM ##### LADEN NEUER BEFEHL ###i#% 
7020 REM 

7950 PRINTCHR$ (147) ; 

7060 PRINT"ISPACE RVSONFRRRR#SPACEILADE 
N{SPAGE}NEUERTSPAGEIBEFEHLTSPACEFRRREHLR 
VSOEF>" 

7090 IF PEEK(SA+141)=-350 GOTD 7160 

7100 J=5A+242 

71109 FOR I=1 TO PEEK(SA+141) 

7120 IF(PEEK(J) AND 128)=0 THEN J=J+1:60 
T07120 

7130 J=J+1 

7140 NEKT 

7150 IF SA+511-J>3 GOTO 7190 

7150 PRINT:PRINT"KEIN{SPACEFPLATZISPACEY 
MEHR ! "=PRINTEPRINT" ZUM{SPACEIMENLE SPACE 
3MITISPACE RVSONYISPACEXRVSGFF}" 

7170 GET A$ı IF AS="ISfACEI” GOTO 3050 
7180 a0T0 7170 

7190 PRINT: PRINT: INPUT"ZU{SPACEHLADENDER 
TSPAGEYBEFEHL"SPN$ 

7200 IF PN$="_" GOTN 3050 

7210 IF PN$="" GOTO 7050 

7220 PRINTr INPUT" {RVSOWIKIRVSOFFIASSETTE 
/XRKFSONYDERVSOFF} ISKETTE" GEF 

7236 IF GE$<S>"D" AND GES<>"K" GOTO 7220 
7240 IF GE$="D" THEN BE=8:160TO 7260 











1/66 


<164> 
<79> 


<48> 
«1677 
<109> 
<129> 
26? 


<83> 
<44> 
<ı181> 
<22> 
<67> 
<42> 
<137> 


<9> 
“635> 
x7A> 
<197> 


<50> 
<243> 
<95> 
<1487 
«21> 
<193> 


.<116> 


<157> 


<199> 
<235> 
<172> 


<171> 


<189> 
<178> 
2227 


<158? 
«227 
“117> 


<71> 
<1227 
<252> 


-<113> 


657 
<30> 
s129> 
<116> 


<199> 
<a> 
<126> 


<533> 
<155> 
<199> 


<248> 
<1277> 
<A3> 


programme 


7250 GE=1 
7260 A=1:LOAD PN$,GE,1 

7270 IF BE=1 THENEN=PEEK (831) +PEEK (B32)# 
2541 83-PEEK (829) +PEEK (830) #256 1 GOTI7500 
7280 OPEN 2,8,2,PN$+*" ,P,R" 

7290 GET #2,A$:GET#2,B$ 

7300 CLOSE 2 

7310 EN=PEEK (174) +PEEK (175) #256 

7320 SS=ASC (A$+CHRS$ (0) )-MASC (BS+CHR$ (0) ) # 
254 

7500 IF S5>654+522 AND EN<=EA GOTO 7800 
7510 IF NOT(tSS<SA AND EN<SA)OR SA>ER} G 
010 7540 

7520 PRINT» PRINT"PRG{SPACEHLIEGTISPACEIA 
USSERHALB{SPACEIDER{SPACEHERWEITERUNG" :G 
oro 7570 

7540 IF SS>SA+522 AND EN>EA THEN PRINT:P 
RINT"PRGISPACE> IST SPACE? ZULSPAGEILANG! “ 
:G0TO 7470 

7550 PRINT: PRINT"BEREICH{SPACE?SBISPACEI 
BISISPACE}SA+5221SPACE }WURDE TSPALE}BESCH 
RIEBEN" 

7570 PRINTsPRINT:PRINTTAB (10) " ZUMISPACE} 
MENUE{SPACEIMITISPACE BVSDNYSPACERESOFF. 
2" 

7580 GET A$:IF As="{SPACEI" GOTD 3050 
7590 GOTO 7580 

7600 PRINT: PRINT: INPUT”BEFEHLSWORT" 3 BWS 
7610 IF 5AtS11-J<LEN(BW$) THEN PRINT:PRIN 
T"ZU{SPACEILANG"=SFOR T=1 TO 2000: NEXT:GO 
TO 7800 

7700 PF$=LEFT$ (BW$,LEN<BW$I-1) +CHRELASC ( 
RIGHT$ (BW$ 1) JOR128) 

7710 FOR I=1 TO LEN{PP$) :POKE J+I-1,ASC( 
MID&«PP$,I,1)) NEXT 

7720 POKE SA+142+PEEK (SA+141) #2, FNL. (85) 
7730 POKE SA+143+PEEK (5A+141)#2,FNH(SS) 
7740 POKE S5A+141,PEEK{SA+141) +1 

7750 PRINT=PRINT:PRINT"BEFEHL{SPACE RVSO 
N "BWE"{RVSUOFF SPACE IST{SPACEIEINGEBLND 
EN." 

7760 PRINT=:PRINT"STARTADRESSEI "88 

7770 17-1 


7780 PRINT: PRINT: PRINTTAB{10) "ZUN{SPACE> 
MENUETSPACEIMITISPACE RVSONISPACELRVSOFF 
+" 


7790 GET A$: IF A®="{SPACEI" GOTO 3050 
7800 S0TD 7790 























8000 REM S 

G010 REM ##ue# ENDE Beeren 
8020 REM 

8059 IF ZZ=0 BOTO 8150 


8100 PRINT:PRINT=PRINT: PRINT 

8110 PRINT"AENDERUNGENT{SPACEISIND{SPACE} 
NICHT{SPACEIGESPEICHERT !" 

8120 PRINT"TROTZDEM{SPACEIPROBRAMMISPACE 
3BEENDEN{SPACEI (J/NI?" 

8130 GET A$:IF As="N" G0TO 3000 

8140 IF A$<>"J" GOTO 8130 

8150 END 

279737 REM 


<25> 
s111> 


x131> 
x77> 
<125> 
x144> 
<ad> 


<221> 
<15> 


<182> 


<20> 


<2207 


<212> 


<113> 
x1597> 
<41> 
sa6> 


<ı18> 
s4a> 


99? 

<225; 
<154: 
x161: 


<48> 
<25> 
<9&> 


<68> 
<114> 
*6> 
<238> 
<B35> 
<Z> 
<153> 
«i11> 


<I> 


*132> 
<72> 

<119> 
%117> 
«197? 


Wir hoffen, Ihnen eine nützliche 
Routine zur Befehlserweiterung 
vorgestellt zu haben und wün- 
schen Ihnen viel Spaß bei der An- 


wendung. 


Compube mit 








tips & tricks 





Zwei nützliche Routinen : 
Verbesserter INPUT-Befehl und READ ERROR 





Der verbesserie Input-Befehl 


Bei den meisten Programmen, die den In- 
put-Befehl verwenden, ist es sehr nützlich 
und nervenschonend, den Gursor und die 
Home Taste abzuschalten. Eine Möglich- 
keit ist die Verwendung von Pokes: 

Poke 198,1:Poke 631,34 setzt ein Anfüh- 
rungszeichen in den Tastaturpuffer, Cur- 


Das folgende Maschinenprogramm bin- 


Tıps und Tricks für den C-64 


det sich in die Tastatur-Dekodierroutine 
ein und unterdrückt den Cursor und die 
Hometaste vollkommen. 


Mit SYS 710 wird Cursor und Home abge- 
schaltet, und nach dem Abschalten auch 
wieder aktiviert. SYS 710 solite also vor. 
und nach jedem Input-Befehl stehen. 


30 FOR X=1 TO SSıREADASPOKE 709+X ‚A: BeB+ 
AINEXTıIF B=64212 THEN END 
79 FRINT "DATAISPALE} 


ERROR” 
1637,250,141,143,2,169,2,1431,144 


173,229,2,73,1,141,229,2,208,10 
169,72, ia1, 143,2, 189,235, 141,14 


96,0,145,203,201,2,230,8,201,7 
240,4,201,51,208,4,169,64,1335,2 


| sor und Home werden dann als inverse 
Zeichen dargestellt, das ist aber meistens 
auch nicht erwünscht. 


76,72,233 





s0 FOR X=1 To 709:READ A:POKE 8272 ,AsNEX 
T3IF B-9101 THEN END 

ui DATA 169,71, 141, 143,2,169,5,141,144, E 
ist ein kurzes Maschinensprachepro- 


gramm, das den-Fehlerkanal der Floppy 
liest, wenn man CTAL und die Pfeil-nach- 
oben-Taste drückt. Durch 


SYS 828 


1 .g DATA 96,173,141,2,201,4,208,49,165,2 





120 DATA 201,59,208,43,149,64,133 ‚203,15 

130 DATA 141,14,220,169,8,32,180, 255, 169 

„111 

140 DATA 133,185,32,150,7255,169,0,133,14 
2 


” 

150 DATA 145,255,32,210,255,165,144,240, 
\ 246,32 

' 160 DATA 171,255,169,1,141,14,220,76,72, 
235 


wird die Routine in die Tastaturdekodie- 
rung eingebunden und mit RUN/STOP-Res- 
tore wieder abgehängt. 


Mit dem Commodore-54 im 








Meteoritensturm 





| Weltraumabenteuer 
mit tückischen Gefahren und enormen Flugbehinderungen 


| Sie sind in einem Raumschiff unterwegs, | lichst geschickt durch diese Gefahren zu | Weltall unbeschadet bleibt, desto höher 
um neue Welten zu entdecken. Plötzlich | manövrieren. der Punktestand. 

| geraten Siein einen Meteoritensturm. Ihre | Stößt der Spieler an einen Meteoriten, ist 

| Aufgabe istes nun, das Raumschiff mög- | das Spiel beendet Je länger die Kapsel im ! Gespielt wird mit einem Joystick (Port 2). 





























26 Compube mir 7186 


Programme 


8382 <126> 
390 DATA 141, 4, 32, 141, 5, 32, 234, 23 
4, 234, 160 <215> 


I 460 DATA 0, 185, 0, 192, 153, 64, 3, 200 
} „192, 128 233% 


410 DATA 208, 245, 162, O0, 160, 1, 169, 





ı5, 142, 37 <197> 
f { 2 A 420 DATA 208, 142, 40, 209, 140, 37, 208 
Hebel nach links bewirkt, daß die Kapsel sich nach rechts „1a, 8, 200 e we <202> 
bewegt und umgekehrt. Oben und unten sind allerdings “nn et BIRY URL SIT 
n + 
nicht vertauscht. 440 DATA 249, 7, 140, 249, 7, 162, 170, 
i 160, 190, 142 1 <104> 
: f DATA 2, 208, 140, 3, 200, 169, 255 
Nach dem Abtippen des Programms bitte erstabsaven und en 
dann normal mit RUN starten. 450 DATA 165, 20%, Z01, 64, 208, 3, 764 
R 240, 192, 32 <11P> 
5: A r h 470 DATA 4ä, 229, 162, 40, 160, 140, 142 
Bei einem ?BATA ERHOR wurden die DATA's falsch abgetippt. „2, 208, 140 «52> 
Sind die DATA's richtig, erscheint auf dem Bildschirm die re 254, 2354, 250, 169, 15, ie 
$YS-Adresse, mit der das Programm gestartet wird, diedann 490 DATA 141, 251, 7, 141, 252, 7, 141, 
nur noch mit der RETURN-Taste bestätigt werden muß, Eser- 233, 7, 141 “107> 
3 ; DR Re 500 DATA 254, 7, 141, 255, 7, 167, 255, 
scheint die Abfrage der Spielstärke, die mit den Tasten Fi, 141, 21, 208 2243 
F3 und F5 beantwortet wird. 510 DATA 159, 0, 141, 41, 20B, 141, 42, 
208, 141, 43 <246> 
520 DATA 208, 141, 44, 208, 141, 45, 208 - 
; A „141, 46, 208 “097 
Jeder weitere Tastendruck startet das Spiel. re 
"134, 2, 140 | <214> 
540 DATA 27, 208, 141, 17, 208, 189, 1, 
133, 199, 162 x«3F> 
100 REM AH — CLOS> ne ne ee 0, 185, 224, 195, 32, 2 <247> 
110 REM * *  <207> , ’ 
120 REM * METEORITENBTURM *  <«196> ee 208, 245, 232, 224, 24 Tores 
1350 REM « “* A227 ° ’ . v 
140 REM # COPYRIGHT 'B&£ TRONIC-VERLAS #  <172> rn an nu 52, 208, 32, 240, 193, de 
150 REM * “* x247> » ? . 
160 REM * 21.03.1986 SWEN OTTMANN #+ <225> men 251, 132, 252, 165, 25 a 
170 REM #* *  <11> 5 s 2 ‚ 
180 REM #* S$CO000 BIS $C4CO MASPRG. = <248> Zi ae 200, 192, 0, 208, 251, 198, u. 
170 REM * *  <31> . D 
206 REM HRHERBSHRHRRREISHRREIHHIHHIHISERRNHNHNE — ZZOS> n N he 164, 252, 104, 96, 20 Be 
210 : <12> v0, ’ 
220 DATA 3, 255, 0, 63, 255, 192, 255, 2 en 208, 205, &, 208, 206, 9, 20 ces 
55, 240, 221 <196> ‚8 D 
230 DATA 254, 188, 213, 122, 172, 213, 1 620 DATA 208, 206, 12, 208, 206, 14, 208 3 
EN re | Ser a och, 08 Bol cr 
240 DATA 171, 213, 234, 171, 213, 234, 1 73, 0 „4,1, 0, 
ee ea 7 a N N Te 
25G DATA 245, 250, 171, 53, 126, 175, 53 & Rn ale wahn aan en. 
„94, 172, &1 <201> | ’ 
260 DATA 1264, 172, 15, 254, 188, 3, 255, a a a Se. 
240, 3, 255 <69> ‚0% s 
270 DATA 192, 0, 255, 0, 0,.0, 0, 0, 0% AED Ban 41, 8, 201, O0, 240, 30, 76, 227 
o <A2> N 3, 206 <I5> 
280 DATA 0, 0, 0, 0, 0, 6, 0, $, 0, O0 x80> 670 DATA 3, 208, 206, 3, 208, 76, 170, 1 
290 DATA 5, 64, O0, 25, 84, 0, 23, 213, & 93, 238, 3 <15> 
a, 95: 2263 &80 DATA 208, 238, 3, 208, 76, 190, 193, 
300 DATA 255, 90, 95, 175, 212, 94, 170, 238, 2, 208 <137> 
245, 74, 170 <60> 690 DATA 258, 2, 208, 76, 190, 193, 206, 
310 DATA 245, 95, 175, 212, 9755 253, 80, 2, 208, 206 <197> 
23, 213, 64 <108> 700 DATA 2, 208, 756, 190, 195, 32, 64, 1 
320 DATA 235, 84, 0, 5, 64, 0, 1, 0, 0, 0 <124> 94, 169, 0 ca3> 
330 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, DO <114> 710 DATA 141, 50, 208, 7&, 101, 195, 162 
340 DATA 0, 0, 0, DO, 0, 0, 0, 0, 32, 68 <i18> ‚170, i6&0, 170 <isıs 
350 DATA 229, 1647, 14, 160, 11, 167, 1, 720 DATA 142, 0, 208, 140, 1; 208, 142, 
142, 32, 208 <i114> 259, 160, 130 <125> 
Za0 DATA 140, 33, 208, 141, 1354, 2, 169, 730 DATA 142, 4, 20B, 140, 5, 208, 162, 
0, 341, 350 xZ247> 205, 140, 107 «235% 
370 DATA 208, 169, 3, 141, 0, 16, 169, 4 740 DATA 142, &, 208, 140, 7, ZUßB, 162, 
8, 141, 0 <32> 255, 150, 220 <20> 
386 DATA 32, 141, 1, 32, 141, 2, I2, 141 750 DATA 142, 8, 209, 140, 9, 208, 142, 
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programme 


75, 160, 90 

760 DATA 142, 10, 20B, 140, 11, 208, 162 
‚ 99, 160, 190 

770 DATA 142, 12, 208, 140, 13, 208, 162 
‚A111, 160, 120 

780 DATA 142, 14, 20B, 140, 15, 208, 96, 
234, 234, 234 

790 DATA 234, 234, 234, 234, 254, 234, 1 


20, 72, 173, 30 
800 DATA 208, 201, O0, 240, 3, 76, 239, 1 
94, 32, 8% 


810 DATA 194, 104, 96, 104, 206, 32, 208 
„96, 258, i 

820 DATA 208, 258, 5, 208, 238, 7, 208, 

238, 9, 208 

830 DATA 2359, 11, 208, 238, 15, Z0B, 238 
„15, 206, 169 

840 DATA 21, 141, 24, 212, 160, 255, 162 
‚411, 140, 5 

850 DATA 212, 142, &, 212, 162, &, 160, 
255, 142, 1 

840 DATA 212, 140, 4, 212, 169, 35, 141, 
4, 212, 238 

870 DATA O0, 32, 173, O0, 32, 201, 58, 240 


A198 
880 DATA 169, 48, 141, 0, 32, 238, 1, 32 
173, 1 

890 DATA 32, 201, 58, 240, I, 96, 169, 4 
STH, di. 

9700 DATA 32, 238, 2, 32, 173, 2, 32, 201 
‚ 58, 240 

910 DATA 1, 96, 169, 48, 141, 2, 32, 258 
3, 32 

920 DATA 173, 3, 32, 201, 58, 240, ti, 96 
‚ 169, 48 


930 DATA 141, 3, 32, 258, 4, 32, 175, 4, 
32, 201 

940 DATA SB, 240, 1, 96, 169, AB, 141, 0 
2 ia1 

950 DATA 1, 32, 141, 2, 32, 141, 3, 32, 
141, 4 

960 DATA 32, 141, 5, 32, 76, 234, 234, 2 
34, 234,. 234 

370 DATA 234, 104, 169, 21, 141, 24, 2i2 
, 160, 246, 162 


980 DATA 8, 140, 5, 212, 142, 6, 212, 16 


9, 48, 141 
990 DATA 1, 212, 169, 128, 141, 4, 212, 
169, 129, 141 

1000 DATA 24, 212, 7&, 1b, 176, 234, 234 
, 234, 234, 234 

1010 DATA 234, 234, 234, 254, 254, 234, 
234, 234, 254, 254 

1020 DATA 32, 60, 229, 162, &, 160, 12, 
169, 0, 142 


1030 DATA 32, 208, 140, 35, 208, 141, 13 


4, 2, 160, 0, 

1040 DATA 185, 112, 195, 32, 210, 255, 2 

00, 172, 103, 208 

1050 DATA 245, 72, 169, 0, 141, 21, 208, 
141, 30, 20B 

1050 DATA 104, 165, 203, 201,.4, 240, 11 
„201, 5, 240 

1070 DATA 14, 201, &, 240, 15, 7&, 73, 1 

95, 169, 10 

1080 DATA 133, 253, 76, 96, 196, 1649, 7, 
76, 92, 195 

1090 DATA 169, 4, 76, 92, 195, 254, 254, 
234, 234, 234 

1100 DATA 15, 15, 18, 32, 32,22, 82,32 
82, 32 

1110 DATA 32, 32, 32, 32, 32, 77, 69; 84 
69, 79 

1120 DATA 82, 73, 84, 69, 78, 835, 84, 95 


<194> 
x84> 
<13>2 
<124> 
<1293 
<2059> 
<138> 
v227> 
“1773 
<118> 
“7973 
<161> 
*11> 


«737 


<208> 
<204> 
<50> 
<15> 
<85> 
<51> 
<55> 
<212> 


«125> 


<128>. 


“O> 
<112> 
*138> 
x11> 
“30> 
*237> 
<225> 
<94> 
<127> 


<211> 


<224> 


s1A2> 


<25> 


92,9 
1130 DATA 13, 13, 32, 32, 32, 32, 32, 32 
„82,32 ; 

1140 DATA 32, 32, 32, 49, 57, 56, 54, 32 
‚85, 87 

1150 DATA 69, 78, 32, 79, 84, B4, 77, 65 
‚ 78, 78 

1160 DATA 13, 13, 13, 70, 49, 32, 45, 32 
, 65, 78 

1170 DATA 70, 65, 69, 78, 71, 69, 82, 13 
70, 51 

1180 DATA 32, 45, 32, 70, 79, 82, 84, Mi 
69, 63 

1190 DATA 46, 13, 70, 53, 32, 45, 32, 80 
‚82, 79 

1200 DATA 70, 73, 83, 73, 83, 234, 234, 
234, 234, 234 4 

1210 DATA 234, 234, 29, 29, 29, 29, 29, 
29, 29, 29 

1220 DATA 29, 29, 29, 29, 29, 29, 29, 29 
„ 29, 29 

1230 DATA 29, 29, 29, 29, 29, 29, 29, 29 
29, 29 

1240 DATA 160, 140, 160, 140, 1640, 160, 
160, 160, 140, 160 

1250 DATA 160, 160, 234, 234, 234, 234, 
234, 234, 234, 234 

1240 DATA 169, O, 141, 21, 208, 32, 515 
194, 234, 234 

1270 DATA 234, 234, 234, 169, 128, 133, 
253, 234, 234, 234 

1280 DATA 234, 234, 160, 10, 32, 104, 19 
3, 136,208, 250 

1270 DATA 76, 32, 195, 234, 234, 234, 17 
3, 5, 32, 141 

1300 DATA 235, 5, 173, 4, 32, 141, 258, 


5, 173, 3 
1310 DATA 32, 141, 237, 5, 173, 2, 32, 1 
41, 238, 5 

1320 DATA 173, 1, 32, 141, 239, 5, 173, 
0, 32, 141 


13530 DATA 240, 5, 96, 234, 234, 234, 234 
„ 234, 234, 255 

1340 DATA 169, O0, 141, 21, 208, 162, 170 
„ 160, 170, 142 

1350 DATA 0, ZOB, 146, I, 208, 162, 255, 
160, 130, 142 

1360 DATA 4, 208, 140, 5, 208, 162, 205, 
160, 107, 142 

1370 DATA 6, 208, 140, 7, 208, 162, 255, 
160, 220, 142 

1380 DATA 8, 208, 140, 7, Z0R, 162, 75, 
160, 90, 142 

1390 DATA 10, 208, 140, 11, 208, 162, 99 
‚ 160, 190, 142 

1400 DATA 12, 208, 140, 13, 208, 162, ii 

1, 160, 120, 142 

1410 DATA 14, 208, 140, 15, 208, 169, 0, 
141, 30,. 208 

1420 DATA 141, 31, 208, 76, 128, 192, 0, 
255, 0, 255 

i430 DATA 0, 255, 0, 255, 0, 255, 0, 255 
„0, 999 

14409 ı 

1450 CLR:X=49152:€8=144827 

1440 READY: IFY=9FFTHENL4IO 

1470 POKEX,YıP=F+Y: X=X+1:GOT01460 

1480 1IFP< »ETHENPRINT"?DATAISPACEIERROR": 

END 





1490 PRINT" {DOKNIDATENISPAGEISIND{SPAGE} 





OK." 
1500 PRINT" DAHN?STARTISPACEIMITLSPACE 8 
VSON3SYSAFFSZIRVSGEEI" 

1510 PRINT" {DOHN2?SY549952{UP3} "END 
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<99> 
<199> 
<28> 
<B> 
<131> 
<88> 
<171> 
<149> 
<7> 
<63> 
<14> 
<24> 
<175> 
<97> 
<235> 
<21> 
<186> 
<130> 


<154> 


x232> 


323 
x20F> 
5323 


<254> 


<80> 
<101> 
<183> 
<160> 
<163> 
<144> 
<177> 
“173> 
AZE3> 
<78> 
<150> 
<i> 
<169> 
<167> 


“80> 
<x119> 


71/86 





“re 0 nL0 
.“ 0006 
“. 
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Sound-Machine — Key-Caller — Führung von Haushaltskonten — Textprogramm 
ı Pac-Mac - Jäger des verlorenen Schatzes - Oil of Texas - Skateboarding 
| Mimi — Jäger der verlorenen Möhre - Soundhelfer — Auto-Starter - Ton-Llock 
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New: Sonderzeichen werden durch Klartext ersetzt! 





Eingabe-Hinweise für Commodore G-16/116-Benutzer! 


Um Ihnen die Eingabe unserer Listings zu erleichtern, 
werden zukünftig all C-16/116-Listings ohne Steuerzei- 


Tastenbezeichnungen für Stewercodes 


«chen abgedruckt. Alle Steuerzeichen werden in unseren 
LISTINGS durch Klartext, welcher die Taste kernzeich- 


net, ersetzt. Eine Tabelle der Tastenfunktionen finden Sie 
in jedem Tronic-Magazin. 


(TRONIC-NORM) 


CURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIRM 
EINFUEGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR LINKS 
LEERZEICHEN 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 


TUERKIS 
PURPUR 
GRAUEN 

BLAU 

GELB 
INVERSE EIN 
INVERSE AUS 
ORANGE 


TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTE & TASTE NEBEN RECHTEMSHIFT 
SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFT-TASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE) 
FUNKTIONSTASTE Fi 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE FS 

FUNKTIONSTASTE FT 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 

FUNKTIONSTASTE F& 


CYAN 
PURPLE 
GREEN 
BLUE 
YELLOW 
RVSON 
RVSOFF 
ORANGE 
BROWN 
LIG.RED 


CONTROL-TASTE &4 
CONTROL-TASTE & 5 
CONTAROL-TASTE & 6 
CONTROL-TASTE & 7 
CONTROL-TASTE & 8 
CONTROL-TASTE &9 
CONTROL-TASTE & 0 
COMMODORE-TASTE & 1 
BRAUN COMMODORE-TASTE & 2 
HELLROT COMMODORE-TASTE & 3 
DGREY DUNKELGRAU COMMODORE-TASTE & 4 
MGREY MITTELGRAU COMMODORE-TASTE & 5 
LIG.GREEN HELLGRUEN COMMODORE-TASTE & 6 
LiG.BLUE HELLBLAU COMMODORE-TASTE & 7 
HGREY 7 HELLGRAU COMMODORE-TASTE & 8 
CTAL CONTROL CONTROL-TASTE ZUSAMMEN MIT 


FUNKTIONSTASTE 
SCHWARZ 

WEISS 

ROT 


Achtung: Einige Listings enthalten das Zeichen ”- 


FUNKTIONSTASTE F& 
CONTROL-TASTE & 1 

CONTROL-TASTE & 2 
CONTROL-TASTE & 3 


FLASH ON 
FLASH OFF BLINKEN AUS CONTROL-TASTE &. 





das Zeichen ” A "steht für den Pfeif nach oben, (SHIFT/Null) 
das Zeichen "N" steht für das (engl.} Pfund-Symbo! [Taste neben Restore) 


Folgendes Beispiel demonstriert die Arbeitsweise unseres Systems: 


STANDARD AUSDRUCK: 





20 PRINT"AMBENDE“ 









10 A$S="TEST"SPRINT" KELEAR RIGHTZ DOWNI AR 
EDIHALLOCRIGHT2 BLUENLEUTETSFACEI!"SPRIN 
T"TRONIC LSPACEYVERLAG" 


20 FRINT" (CYAN FURPLE GREENIENDE" 

















Wie in dem Beispiel zu erkennen ist, wird das Herz-Sym- 
bol durch das Wort CLEAR ersetzt, Dies bedeutet, Sie 
müssen die Taste CLEAR drücken, um das Herz-Symbol 
zu erzeugen, Sollten Sie einmal nicht wissen, welche Ta- 
ste gemeint ist, hilft Ihnen ein Blick in unsere Tastenta- 
belle bestimmt weiter. 

Um im Listing Tastenbezeichnungen von Grafikoder nor- 
malen Texten zu unterscheiden, werden alle Tastenkenn- 
zeichnungen in geschweifte Klammern gesetzt. Diese 
dürfen selbstverständlich nicht eingegeben werden, 
Auch Leerzeichen innerhalb geschweifter Klammern 


30 


10 AS="TEST" PRINT" LENBEDDEHALLORBEN EUTE !*EPRINT"TRONIC VERLAB" 


UNSER NEUER AUSDRUCK DER GLEICHEN ZEILEN: 


<34> 
«1173 


Achtung ! 


DEM NACHFOLGENDEN ZEICHEN, 
(ZB. CTRLA ENTSPRICHT CTAL& A) 


BLINKEN EIN CONTROL-TASTE &, 


”, dieses Zeichen entspricht dem Pfeil nach links (Taste ganz links oben) 






vtt 


entre RR 


Kurzivor Redaklionssehlußbeimerkten wir daßidie Klärtext-Tahelle mit den Schlus- 


ein GelBiitbnichtga 
siimmt'dieTaslenbe laatz] 


el, [Eyoch 
Bildschirm D) 


Abgedruckter Klartext 


LIG!RED 
[ole7:72% 
MGREY 
[feKei:/72,| 
[HleR:/0V/= 
In le1:1=87 






mersienkü nthierdieiFarbenbe- 
Ibgedrlcklen Codes uber- 


|bihalionen.eine andkreFarpe auf dem 







achlelgende Gen ellung klarl hier auf 


Richtige Farbe 










[era era) 
Rosa 
Blau-Grün 
Hellblau 
EITLSALTEI) 
Hellgrün 






Ebentalisistimmen.einıge Tastenbeschreibungen nicht ganz überein, da der C-16/ 
UM LSESITZONTESSTHE SIHHIETO N ALOE NOTEN 0 3 BER ET SEE EINE TRBERSTESMEREHN TE 


den beschriltetsind, durfteas hier keine Probleme:geben. In.zukunftigen Ausgaben 
werden wireine vollstandig neue Tabelleabdrucken 


dienen nur zur Trennung einzelner Tastenfunktionen und 
dürfen ebenfalls nicht eingegeben werden. Um die Ta- 
stenfunktionen nach besser hervorzuheben, warden die- 
se in unterstsichener Kursivschrift (Schrägschrift) abge- 
druckt, 

Steht hintereiner Tastenfunktion eine Zahl, welcheeben- 
falls unterstrichen ist, bedeutet dies, daß die letzte Ta- 
stenfunktion mehrmals betätigt werden muß. Die in un- 
serem Beispiel abgedruckte Funktion RIGHT3 bedeutet, 
daß die Taste RIGHT (Cursor rechts) 3 mal hintereinander 
betätigt werden muß. Auch einzelne oder mehrere Leer- 


Compute mik 


zeichen innerhalb von Anführungszeichen: werden auf 
diese Art gekennzeichnet. Das bislang übliche Abzählen 
einzelner Zeichen entfällt somit völlig. 

Alle Zeichen außerhalb von den geschweiften Klammern 
werden normal abgadruckt und auch eingegeben. 

Auf den ersten Blick hört sich das sicher etwas kompli- 
ziert. an, ist jedoch in der Praxis ganz einfach. Wenn man 
sich erstan die in Klartext geschriebenen Steuerzeichen 
gewöhnt hat, wird man den großen Vorteit dieser 
Schreibweise erkennen. 


1/66 


Programme 


Checksummer 0C Version 1.0 für C-16/116 





‚Die Arbeitsweise des 6-16/116 Check- 
summers entspricht weitgehend der VC- 
20- und C-64-Version und braucht des- 
halb nicht näher erklärt zu werden. Da 
auch der C-16/116 nicht den größten Spei- 
cher besitzt, wurde hier die Methode der 
VC-20-Version gewählt und das Maschi- 
nenprogramm in den Kassettenpuffer ge- 
legt. Dies hat den Vorteil, daß kein Basic- 
Speicher verlorengeht. Der Nachteil be- 
steht darin, daß nach der Aktivierung des 
Checksummers keine Kassettenoperatio- 
nen durchgeführt werden dürfen, da diese 
unweigerlich zum Systemabsturz führen. 
Um die Kassettenoperationen wieder zu- 
zulassen, muß der Checksummer durch 
die beiden folgenden SYS-Aufrufe abge- 
schaltet werden: 
Sys 62158 : SYS 33047 

Aktiviert wird der Checksummer mit $Y$ 
818. Die Funktion und Arbeitsweise ent- 
nehmen Sie bitte der C64-Checksummer- 
Version. Eine Ausnahme bei G-16/116 sind 


die zusätzlichen Steuerzeichen 'FLASHON’ 
(CTRL-) und ’FLASHOFF (CTRL.) weiche 
ebenfalls durch Klartext ersetzt werden 
(s. Tabelle Tastenbezeichnungen). 


Arbeitsweise und Aufbau unseres Checksum- 
mers: 

Unser Checksummer besteht aus einem 
kleinen Maschinenprogramm, welches 
als Basic-Loader abgedruckt ist. 


Tippen Sie diesen Loader ein und spei- 
chern Ihn auf Kassette oder Diskette, denn 
Sie können ihn zukünftig immer wieder 
benutzen. 


Der Start erfolgt durch den Befehl „RUN“. 
Nach kurzer Zeit meldet sich der Rechner 
mit der Meldung „TRONIG ..“, Der Check- 


summer ist nun aktiv und man kann ein 


beliebiges Tronie-Listing eingeben. Nach- 
dem eine Zeile mit RETURN abgeschlos- 
sen wird, erscheint tinks oben auf dem 


Schirm eine Prüfzahl. Vergleichen Sie die- 
se mit der Zahl im Heft hinter der Zeile. 
Stimmt die Zahl überein, ist die Zeile rich- 
tig eingegeben. 


Auf diese Weise können Sie das gesamte 
Listing schnell und fehlerfrei eingeben. 


Interessant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 
nutzt werden können, ohne die Check- 
summe zu verändern. Leerzeichen außer- 
halb von Anführungszeichen werden 
ignoriert, da diese auf die Ausführung der 
einzelnen Befehle keinen Einfluß haben. 


Für alle, die'nicht gerne-ablippen, ist der 
Checksummer unter folgender: Bestellnum- 
mer. zu beziehen: 


DV.10.K Kassette 10 DM 
0V 10.D Diskette 15 DM 


* 
































1 REM HR ER HEEEEERKENNER <> 60130 PRINT” {DOWNISAVE/LOADTSPACEITSTISE 

2IREM « = <£99> AGE}WAEHREND{SFACE3DERTSPACE HCHECK-" ch1> 

3 REM #* Di1ö-CHECKSUMMER * <i40> 60140 PRINT"SUMMERLSPACEIAKTIVISPACEI IST 

4 REM #* *  <101> „ISPACEINICHT {SPACEIMOEBL ICHTSPACEF !* “2213 

5 REM « COPYRIGHT BY FRANK RRALL *  <1B2> 60150 PRINT” (DOWH>BEACHTEN{SPACEISIETSPA 

& REM * #  <103> CEIDIE TSPACEFHINWEISE SPACE} INTSPACEIDEN 

TREM #« cc) 18.04.86 *  <i91> IK 2189> 

8 REM # * <105> 60170 PRINT"HEFTEN{SPACE>ICOMFUTETSPACEIM 

9 REM BR HH RHBHRIHHIRRIRR HERR IHSER IE RI «123 IT{SPACEFUND {SFACEHLOMPUTRONIC" x2354> 

10 PRINT"{CLEAR BOHN SPACEZ}###4LSPACEZ} &0180 PRINT” {DOHNFVIELTSPACEISPABSSTSPACE 

CHECKSUMMER (SPACEFOCESPACE} 1. OISPACEZI 44 3ICSPACEF (AUTOR:F. BRALL/6443SONTRA) <116> 

SILDOHN?" <103> &0190 POKE B14,147:PDKEB15,251sPOKE Aid, 

11 PRINT" {SPAGEZ}Y 4#ISPACEZICOPYRIEHT {SPA 147:POKE 817,251 «109> 

CEIFRANKESPACE}BRALLTSPACEF} SHTDOHNF" <110> 60195 SYS BIB:END 1773 

12 PRINT" CSPAGCESFFUER SPACE TRONIC-VERLA. 60201 DATA A9,530,80,02,03,69,03,80,03,03 

G" - <1976> „60,A2,FF,86,3#,20,5A;88,86,3B, 1851 «56> 

60000 DIMH (75) :FORI=0T09 <123> &0202 DATA 84,30,20,72,04 ,AA,FO,EF,970,09 

80010 Hi48+I)=I:H (65+1)=I+10:NEXT <145? +20,53,87,20,77,04,4C0,D7,88,20, 2018 <28> 

&0020 FORIe BIER TO 1010 zREADAF <151> 50203 DATA 3E,8E,20,53,99,84,0B,49,00,8D 

60030 H=ASC {LEFTS(AS,1)) <234> ‚E4,03,;80,E5,03,9D,E6,03,18,A5, 2076 80, 

60040 L=-ASC (RIGHTS CAF,L1)) x253> 60204 DATA 14,65,15,90,E6,03,AQ,FF,C8,Bi 

60050 D=HtH}*#16+HtL}:5=5+D:POKEI,„D <13> „3B,F0,2C,09,22,D0,0A,AD,E4,03, 2508 <18> 

60060 A=ft+l: IFA<SZOTHENNEXT=A=-1 <97> 60205 DATA 49,01,90,E4,03,B1,3B,AE,E4,03 

60076 READV: Z=Z+1: IFV=STHENGOOSS <177> ‚D0,04,C09,20,F0,E4,EE,ES,03,AE, 2644 <87> 

60080 PRINT"DATAFEHLER{SPACE}IN{SPACEFZE : 60206 DATA ES,03,18,B1,3B,60D,E6,03,8D,E& 

ILEISPACE}: "3 60200+Z:END <39> ‚03,CA,D0,F4,4C,76,03,38,20,39, 2204 2107> 

&0085 IFALOTHENSO1NO <116> 60207 DATA DE,BE,E2,03,8C,E3,03,42,00,A0 

&0099 S=0: A=0:NEXT <246> ‚00,18,20,37,D9,A7,5B,20,D2,FF, 2365 <115> 

&0100 FRINT" {DOWN2}" <172> 60208 DATA A9,00,AE,E6,03,20,57,A4,A9,5D 

&0110 PRINT"CHECKSUMMERTSPACEIEINTSPACEI „20,D2,FF,20,08,FB,20,08,FB,AC, 2780 <169> 

SCSPAGE>SYSTSPÄAGCEFBLBIBOHNF" <140> 60209 DATA E3,03,AE,E2,03,18,20,37,DB,AZ 

680120 PRINT"CHECKSUMMERTSPACEFAUSISPACE> „00,86, FF,40,36,87,00,00,00,00, 1778 «133> 

=ISPACE+SYSTSPACEIAZILSAHSVSTSPACEISFOATL 60210 DATA 00,00,00,00,00,00,00,00,00,009 

DOUNY* <122> ‚00,00,00, © <104> 
1186 GSompute mib 


3l 
































software-service 





Haft 5/85 

Commodore 

Bestoll-Nr. COM CK 1/1 18,- DM 
Bestoll-Nr, COM CR 1/1 20,- DM 


Senso (C-18/116), Janpie [G-B4), Auto- 
start (C-64), Sequenzer (6-84), $ufo 
(6-84), Oiymyia (46-20), Flowers (VC-20) 


Schneider 

Bestoll-Nr. COM SK 1/1 16,- DM 
Cobra, Krümi, Hausted bastie, N-Bort, 
ROM-CALLS 


Haft 9/05 

Commodore 

Bestell-Nr. COM CK 3/1 18,- DM 
Bestell-Nr. COM CD 5/1 20,- DM 


Suparmoni 64 (G-B4), Galaxy (C-64), At- 
lantis (C-84), Shaolin (C-16), Hospital 


(C-20), Fiipper-Ball WG-20), Allen 
(VC-20) 

‚Schneider 

'Bastell-Nr, COM SK 5/1 16,- DM 
Bestell-Rr. COM SD 5/1 38,- DM 


Duell, Crash, Citylander, Kiondike, REM- 
Killer 








Heft 8/85 

Commadore 

Bestell-Nr. COM CH 2/1 18,- DM 
Bestell-Nr. COM CD 2/1 20,- DM 


RBamptran (6-64), Softlanding (6-64), 
Karate (6-54), Einbrecher (NG-28), Tan- 
kor (%C-20), Jupiter Hascus (IE-20), 
$08-Sehlifbruch (6-18) 
Schkaelder . 
Bestoll-Kr. COM SK 2/1 10,- DM 


Tastaturbelegung, Gave-Runner, Old- 


Shurehand a 

Nait 10/85 

Commodore 

Bestell-Nr. COM CK 6/1 16,- DM 
Bestell-Nr. COM CD 6/1 20,- DM 


The Castle of Br. Creap (VC-20), batchgo 
6-20), Sub-Zens (VC-20), The Mare 
Graza Gama (6-03),. Super-Breakout 
{C-64), Plapet of Daatıı (G-64), Funk- 


tionstasten-Programmlerung (6-04), 
-Cor Mace (&-16/116), Kay-Holper 

(C-16/118) 

Schnelder 

Bestell-Nr. COM SK 0/1 16,- DM 

Bestall-Nr. COM $D 8/1 30,- DM 


Labyrinth, Catch, Min! Car Macs, Inka So- 
gra, Single Disk Backup 


Zeitschriften und Programme von 1985/86 


Heft 7/85 

Commodore 

Bestell-Nr, GOM CK 3/1 16,- DM 
Bestell-Nr, COM CD 9/1 20,- DM 


Saa-Attak (6-64), Saca-Ags (DC-64), Mic- 
ro-Toois (6-64), Diaky 1.0 (G-64), Stant- 
wan I[C-20), Sope (VC-28), Balloon- 
Shoot (NG-29), Farbeufroh (G-10) 


Bestell-Nr. COM SK 3/1 
Bestell-Nr. COM 30 3/1 
Secret Yallay, Smilaymat, 
Super-File 


18,- DM 
89,- DM 


Neft 11/85 


Commodore 

Bestoll-Nr. COM CK 7/1 ‚16,- DM 
Bastell-Nr. COM CD 7/1 20,- DM 
interpreter Music-Langenge (6-64), Fi- 
relaglon (6-54), Funktionstasteapro- 
grammierung (6-64), Schatztaucher 
(6-18), Banuerous Planet (WC-20), Gee- 
Zarxıma (UC-20) 


Schnelder 

Bostell-Nr. COM SX 7/1 18,- DM 
Bestoll-Hr. COM SD 7/1 39,- DM 
Eis, Allen-Huntor, Damen-Attack, Da- 
tenverwaltung, Discshaw 





Hett 8/85 

Gommadore 

Bestell-Nr. COM CK 4/1 16,- DM 
Bestell-Nr. COM CD 4/1 20,- DM 


Bracker-List (NC-20), Flowers Il (66-20), 
Dine Eugs (NC-20), Piano (C-18/116), 
Tank-Duoll (C64), Yarnpir [C64), Memory 
{C-64), Raster Rogistar, laterrupt (G-64), 


Bertall-Kr. COM SKk 4/1 16,- DM 
Bestell-Nr. COM SD 4/1 39,- DM 
Coptor Patrol, Suchrätsel, 

Tower 

Haft 12/85 

Canmolara 

Bostall-Hr. COM CK 4/1 16,- DM 
Bestell-Nr. GOM CD 4/1 20,- DM 


Froggles Niuktimars (WC-28), Wächter 
des helligen Tempels (46-29), Jumping 
Joe (C-18/116), Clty-Hunner (6-16/116), 
Mission Rescue (C-64), Turko-Jet 
(6-64), Print-Benerator (C-64), Dataga- 
nerator (6-64) 


Schnelder 
Bestell-Nr. COM SK 8/1 16,- DM 
Bostell-Hr. COM SD 8/1 38,- DM 


Chachsummer 1.0 CPC, Two Charry 
Ckaps, Erwin Im Zauberschloß, Druck- 











steuerung HLQ 401 


Eee kr 


‚Hoft 1/86 Beft 2/ä& Bett 3/88 

Commodore Commodore Gommarore 

Bestell-Nr. COM CK 1/2 18,- DM | Bestell-Nr. COM CK 2/2 t8,- DM | Bestell-Nr. COM CK 3/2 16,- DM 
Bestell-Nr. COM CD 1/2 20,- DM | Bestell-Nr, COM ED 2/2 20,- DM | Basteil-Nr. COM Cd 3/2 20,- DM 


Checksummer 1.0 6, Astronaut Battle IC-64), Hueycahıra 
(6-18/118), Hardcopyroutine (C-16/116), Heimut und die 
Zeitmaschins (C-16/110), Lacns (#C-20), Rock’'me 


(VC-20), Charly der Raketenmann (V6-20), Interrunt-. 


Programmierung (V6-20) 
Schneider 

‚Bestell-Nr. COM SK 1/2 16,- DM 
Bestell-Nr. COM SD 1/2 38,- DM 


Deiender, Boulder Dask, Basic-Befehle auf den Funk- 
Vonstasten 





Heft 4/86 


Commodore 

Bestell-Nr. COM CK 4/2 18,- DM 
Bestoll-Nr. COM CD 4/2 20,- DM 
Shuttle (VC-20), Josef In den Höhlen (VC-20), Marge- 
Routine (VC-20), Shant it (VL-20), Fast Trast (G-64), Da- 
in-Toxt 64 (6-64), Gary, der schnelle Kahelverleger 
(C-16/116), $DI (C-16/116), Baap-Routine (G-18/116} 
Schneider 

Bestoll-Nr. COM SK 4/2 16,- DM 
Bestell-Nr. COM SD 4/2 39,- DM 
Space-Hescue, Texteditee, Starlight, Programm -Reiter 





Rohe (C-64), Basic-Befehlserwelteruag (6-64), Hake- 
tenstart (6-18/116), Dreikampf (C-16/116), Headline 
[(C-16/116), Defender (KG-20), Formel 1 {VC-20), Mama- 
ry-Bisplay (UC-20) 


Schneider 
Bestell-Nr. GOM SK 2/2 18,- DM 
Bestell-Nr. COM SD 2/2 39,- DM 


Aller 2001, Diampnd Hunter, Directory 


Heft 5/88 

Gommedore 

Bestell-Nr, COM CK 5/2 16,- DM 
Bestell-Nr. COM CD 5/2 20,- DM 


Space-Davil (6-84), Disk-Eddi (C-64), ABC -Legan iV-29), 
3-D-Lahyrinth (VC-20), Trom (6-20), Invaders of Space 
(C-18/116), Suhmarine (C-16/118), Balkondiagramm (C- 
16/118) 


Schneider 
Bestell-Nr, COM SK 6/2 16,- DM 
Bestell-Nr. COM SD 5/2 3B,- DM 


Startank, Grafik-Designer, Gross-Reforeece, Itoxt 





Aus diesem Heft 





Commodore 
Bestell-Nr. COM CK 7/2 
Bestell-Nr. COM CD 7/2 


16,- DM 
20,- DM 


Schneider 
Besteil-Nr. COM SK 7/2 16,- DM 
Bestell-Nr. COM SD 7/2 39,- DM 


1 Bestell-Nr. COM 5D 3/2 


Minor-Jumper (C-16/116), More (G-16/116), Data-Maker 
(6-18/118), Bofahlserweiterung (C-54}, Starchip (6-84), 
Mini-Car-Race (C-84), Text-Scroller (G-64), Text-Edltor 
(6-84), Checksummor (VC-20), Robin at Ravenwreck 
(C-20), Mini-Karate (VG-20), Autonumber-Routine 
[NG-20) 

Schneider 

Bestelt-Nr. COM SK 3/2 . 16,- DM 
39,- DM 
Smily, Scrapi, Die verrückte Fahrik, Disc-Help 


Haft 6/88 

Commodore 

Bestell-Nr. COM CK 8/2 18,- DM 
Bestell-Nr. COM CD 8/2 20,- DM 


Music-Master (C-64), The little Pack goes home (C-64), 
EDDY (C-64), Invors-Utillty (G-16/116), Chacksummer 
(C-18/116), Allanwurd (C-18/118), Dato-Maker (VC-20), 
Karato-Kid (VC-20), Q-Bert (VC-20) 
Schneider 

Bestoll-Nr. COM SK 6/2 

Bestell-Nr. Cüm SD 6/2 

Diskgort, Mini-Fortt, Starcommand 
Se en) 


Telefonische Bestellungen unter 


05651/30011 


Bearbeitung innerhalb einer Woche 





Alto hier aufgeführten Kassetten und Disketten künnen jedorzeit nachbestellt werden. Beiden Zeitschriften sind die Ausgahen 6/85, 7/85, 1/85, 2/86 und 3/88 leider vergrif- 
fen und können nicht mehr nachgeliefert werden. Bitte beachten Sie dies hal Ihrer Bestellung. 
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7/86 





software-service 












Programm Preis/ Preis/ Bestell-Nr. | Programm Preis/  Preis/ Bestell-Nr. 
Kassette Biskeite Kassette Diskette 
“ 
Huiti-Key/S-Ton! 64/ Bastellschein/Blücky 8,50 15,- UM vo 
Interrapt-Programnie 16,-- DM 21,-- DM UC 2/85 Multigranh/All Rammar 11,-- DM 15,50 DM vn 
Spritehilte/Diskloader/ Zykio/Metsorit 11, DM 19,50 DOM wa 
Directory 21,-- DM - UC 3.1/86 Barten/Schloß Gruselstein 14,-- M 19,50 DM v9 
Tape-Directory/Asmon/ Fressman/Outlaw F 14, IM 19,59 DM y101 
Data-Gonerator 15,-——- DM 21,-- BM VG 3,2/85 Prost/Buftalo BIIL 14,-- DM 10,59 IM sı2ı 
Fast Load 10,-- DM UC 4/84 Joy Man/Powerpack 14,-- DM 19,50 DM v22 
Diskmaniter/Zeichansatz 20,-- DM - UC 5/85 Der rasendo Malocher/ 
Naassomblor/Maskongeneratar 15,-- DM 28, DM UC 6/85 Frankie goes to Pharao 14,—— 0M 18,50 DW v32 
iel 84/Treibhorprogramm Matron/Obst 14,-- DM 19,50 DM za2 
"für 1528/MPS 802 Decolevater 14,-- DM 19,-—- DM UG 7/85 Race On/Cagy 14,-- DM 10,50 DW 452 
Supertapedirectory/Hanew/ Nürburg 30/Düsl 14,— DM 19,50 UM v2 
Kontrollabfrage 15,-- DM - UC 8/85 Breaker/Expulsion 14-- DM 10,50 DM 472 
Video-Utilities, ; Brückenbau/Jango t6,-- DE 21,50 0M 13 
Multi-Basic W3, Blldeditor 17,— DM 23,-— DM UE 8/85 :| Mska-Schatz/ 
Boatter dasic/Autonumbar/ Niner dor Fassslansztreicher 18, IM 21,50 DM 23 
Kardcopy/Terminalpregramm 17,-- DM 23,-- DM - 06 10/85 Beahıy In Actlaw/Bergshonting 18,-- DM 21,50 DM v3. 
Speicher-Oszillaskap/ Zykia/Geidsammler 11,59 DM - HG/V-T 
Makra-Assamblar/Chamge Typp 49,-- DM 54,-— DM UG 1/86 Star-Wars/Punkteiresser 14,58 UM - HG/V-2 
Rsartor/Cuncentration/Datenbank 17,60 DM 23,50 DM HG/G-1 Catch the Fish/Mister Jump 14,59 DM - HC/V-3 
Werlsris/Caverns of Death 14,50 DM 19,50 DM At/0-2 Ghosts Egus/Fox Hant 14,50 DM - HG/Y-4 
Allen-Destrayer/Duell 24,50 DM 20,50 DM KG/C-3 Collactor/Break Out 14,50 DM - AG/NV-5 
Ocean Gana/Tennis 17,50 DM 23,50 DM Bb/G-4 Q-Bert/Salvage Grew 16,50 DM - HC/V-8 
The Cauos 17,50 DM 23,50 DM RG/C-5 Dog Fight/Schwitzbad 16,50 DM - HE/V-1-4 
Bardener 17,50 DM 23,50 UM HG/E-8 Earthı Aoscua 14,50 DM - BG/Y-2-4 
Ufa/Shatoboard Sara 24,50 DM 20,50 DM HG/E-1-4 Tank 14,50 DM - KG-V-3-4 
Olympic Blathlon/ Terra 2/Pac-Balt 186,50 DM 21,56 DM BE/N-4-4 
$truggie for Life 24,50 DM 20,60 DM HC/C-2-4 Sprites/Space-BHattle 13,-- DM 19,— DM UV 2/85 
Pole Pasition/Save Grafik-Painter 10,-- DE - UV 5/85 
your testh/Push 24,50 DM 29,50 NG/G-3-4 YL-Ciock 9,-- DM - UV 8/85 
Explorer 2/Programmname? 24,50 DM 29,50 DM HC/C-4-4 Decelerator 8,-- DM - uw 7785 
Mauern/Widerstand 8,-- DS 15,-- DM c4 Joypaint 12,-- - U 9/85 
Spaca-Comets/Erdspalte/ Dlsassembler, Old-Programme 10,-- DU - 8/5 
Sprite-Data 15,-- 0M 23,50 c51 Olrectory/Farb-JRQ 10,-- DM - UV 10/85 
Autostart/Bestellscheim/ 
Roadpalater E 18,50 DM 24,50 DM cs 
Hardcopy/Space-Fighier/ 
Data-Benerator 135,58 DM 70,50 DM (Hi 
Monstor-Attack/Block- 
Paintsr/Epson-Drucker 16,60 DM 23,50 DM £c81 
Projekt/Datenkank 16,-- DM 23.50 DM co Autorennen 11,-- IM - Us 3/85 
Spiders/The Basic 16,50 O4 23,50 DE 6101 Universal-Datel WI B-- - us 4/85 
High Noon/Skaet/ Computerschrift/Symkbol-Swap | I0,-- - US 5/85 
Gratik-Designer 17,50 DM 23,50 DM cı21 Kaybsard Toakuit/Farhdecodierung 11,—— DM - uS 8.1/85 
Painter/Star-Baddie/Editer 17,50 DM 23,50 0M 622 Aadin d— mM - us 8.2/85 
Wüstenrally/Jet-Pac/ Painter/Box-Befehl 14,-—- OM 24,— UM u$ 7/85 
Black Moore Castle 17,50 UM 23,50 DM 632 Maschinensprache-Monitor/ s 
Brieftaube/Cadelow 19,50 DM 24,50 DM 642 Dsk-Hilfe 15,-- DM 25,-— DM U8 8/85 
Ritter Erik/Grand Prix Spritahlite 19,50 DM ' 24,50 DM 682 Basic, Maschlenm-Kit- 12,-- DM 22,-— DM US 9/85 
Firebird/Nigh Music 24,50 DM 23,50 DM 692 Backup/Directory/ 
Moonsweeper/Scottl 24,50 DM 29,50 DM 672 Eilipse/Disk - 27,—— DM US$ 10/85 
Tron/Mercurlous 24,50 DM 20,50 DM c13 Data-Henerator/Arafik Toolkit/ 
Interceptor-Basel/Schoiter 24,50 DM 20,58 OM 623 ASCH List (Turbe Pascal} Uio- UM 25,— DM u8 1/66 
Jump-Man/Space-Taxl/The Way 24,50 DM 20,50 DM 633 Fallschirmspririger aM - HG/SR-3 
Geisterschlon 8,-- OM - HG/SR-4 
Zelchendesigner 12,56 DM BG/SR-5 


Mlal Car Race/Intnrcapter 3 D 17,50 DM 26,60 DM NG/SA-6 


Neu in unserer Software-Bestell- en, 1250 24,50 NC/SR-1-4 


Otti’a „Sound“ 17,50 DM 27,50 DM HG/SR-2-4 
is te der Samson und die Kisten/ 
Die verflixte 15 17,50 04 27,50 DM HE/SR-3-4 
Moan-Landiug/Panzer 17,50 DM 26,50 DE HE/SR-4-4 
Super-Miner 14,-- DM 24,— DS SR 42 
CPG-Bort 14,-- DM 24,— DM sa 52 
Conan's Castle 15,50 DM 28,50 Dia SR B2 
Fantasy-Country/ Snider’s Maca 18,50 26,50 DM SR 72 
Narror-Castie 18,-- DM 23,-- DM 023 Schneider Panik/ Killersblp 18,50 DM 28,50 DM 5R 13 
Moon Fighter/Goldrausch 18,-- 0 23,-- DM 033 Horrar-Gares/ 
Zeichendesluner 14,-- DM - u0 8/85 ‘| Midnight 18350 DM 20,60 DM Sn 23 
OLD-Reutins-Morge-Houtine/ Caswis-Gastle/Spider-Maco/ 
Change Tygo I4,-- 19,-- U0O 1/88 Traumland 18,50 DM 28,50 DM 5 33 
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mn. 


Hubschrauber 


Airwoll 
Im Auftrag ihrer Regierung müssen Sie 
versuchen als Pilot des Airwolfs einen al- 
ten Kriegsschatz zu bergen. Dies ist aber 
so nicht möglich, da eine Bombe den Ein- 
gang des Gewölbes, in der der Schatz ver- 
borgen ist, versperrt. Sie müssen nun ver- 
suchen, in diese Höhle hineinzufliegen 
und die Bombe mit Hilfe Ihrer eigenen 


Bomben zur Explosion zu bringen. Wenn 
Sie das geschafft haben, haben Sie nur 50 


herauszukommen und an ihren Start- 
punkt zu fliegen. Dies ist aber nicht soein- 
fach wie es klingt Zusätzlich behindern 
Sie Minen, die noch vom 2. Weltkrieg 
stammen und plötzlich herunterfallende 
Felsbrocken, die Ihren Hubschrauber ge- 
fährden. 


Die Steuerung erfolgt per Joystick in Port 1. 


Eingabehinweise: 

Das Programm besteht aus zwei Teilpro- 
grammen: 

1. Airwoli-Datas. 

2. Airwolf-Spiel 





getippt, gespeichert, geladen und gestar- 
tet werden. 


Hinweise zum Abwerien der Bomben und Rake- 
ten: 
Jovatiäkleuorknepe= Bombe wird abge-. 


- worfen 


Joystickfeuerknopf + Ausschlag des Joy- 
sticks = Rakete wird in die Flugrichtung 
abgeschossen. 


Mine = 30 Punkte 

Felsbrocken = 150 Punkte 

Bombe = 300 Punkte 

Erreichen des Startpunktes nach Ab- 


Zeiteinheiten, um aus der Höhle wieder 









































Die Programme müssen nacheinander 


schießen der Bombe = 1000 Punkte 


100 REM HHHHRHHHHRRERRRRSHEH 5 CZLLF 320 PRINT"{ODOHN RIGHTYTASTE.” 2 <131> 
110 REM * —- AIRWOLF-DATAS —- *” <164> 330 BETA$: IFA$=CHR$ (13) THEN340: ELSES3O 2107> 
[1 Hu =, = 
120 REM ABHBSHSBSSSRHRHEIEHRRHOHRIN ER CZZL> -_ PRINT" £CLEAR}" : PIKES& „473 V=45280: VOL Pe 
TT * <158> 
In BE 5 ei *# <103> 350 POREV+18,PEEK (V+18) AND2S1 <157> 
150 REM u** ANDREAS PDLEFKA zur” <105> 360 POKEV+1F,PEEK (V+17) ANDSORSB <154> 
160 REM rer #x*% : <105> 370 FORT=8S2T0849: READA:POKET „Az FRefR+As 
170 REM "+ 5470 ANDERNACH 1 ur <241> NEXTT K1072 
180 REM #* #*% <143> 380 5Y58352 236> 
190 REM # LC1 1986 * <1428 390 FORT=12800T013089: READA: IFA>-LTHENPO r 
KRRKEEHeENe 5 <55> KET,ASNEXT <246 
a nes u" «972 400 FORX=1T016:READA:POKEX+273 ,A:NEXT <221> 
220 COLORA,3,3 <137> 410 DATA162,0,187,0,20B,157,0,48,189,0,2 
230 COLORI.2 nn 09,157,0,49,202,208, 241,96 €190> 
240 FOKEO, ° <a3> 420 DATAO00,009,024,012,007,003,001,000  x129> 
250 PRINT" CLEAR DOUN RVSCH SPAGELISHAIRW 430 DATA170,000,000,000,170,255,170,0009  <194> 
OLF{SPACEIDATASTSPACEIS RVSOEE}" P2-53 440 DATA170,001,015,015,1790,255, 170,127 «182> 
260 PRINT"{DOHNZ RIGHTIBITTELSPACEIDRUEC 4509 DATA170,192,240,252,170,255,170,255  <105> 
KENISPACEISIETSPACEYDIEESPACE RVSONIPLAY 450 DATAL70,000,000,000,128,224,224,128 <353> 
IRVSOFE SPACEHTASTE," <72> 470 DATA170,000,009,000,0012 „007,007 ,00i1 <5> 
270 PRINT" {DOWN RIGHTIDAMITISPACEIDERISP 480 DATA170,001,015,063,170,255,170,255  <öB> 
ACEFCOMPUTERTSPACEINÄCHTSPACEHDENTSPACEI 4909 DATA170,192,240,240,170,255,170,254  <b&> 
EINLESEN® <80> 500 DATA170,000,000,000,170,255,170,000  <8> 
280 FRINT"CBOWN RIGHTFAUTOMATISCHISPACEN 510 DATA009,000,024,048,224,192,128,000  x<87> 
DEN{SPACE3LADEVORGANGESFACEIFUERTSPACEID 520 DATA000,000,000,000,192,255,172,000  x194> 
As" ne <B2> 530 DATA000,000,000,000,003,255,003,000  <S0> 
f 540 DATA000,000,000,000,242,255,242,000 <28> 
a, BEINEN NEL FREREE FEN 2218> 550 DATA170,000,012,063,255,255,127,031 x242> 
300 PRINT"{D@HN RIGHTIWENNISPACEISIEISFA 560 DATA170,000, 0491 7A, FUSS EU SEA BAG <IEOR 
CEIDIE SPACE IDATABSTSPACEIJETZTISPACEIEIN 570 DATAO00,024,066,214,153,214,066,024  <46> 
LESEN" <103> 580 DATA255,066,036,024,024,036,066,255 <17> 
310 PRINT"£DOHN. RIGHTIWOLLENTSPACEIDANNT 5790 DATA024,024,126,255,255,255,126,000 <32> 
SPACE}DRUECKENSPACEFSIETSPACEIDIEASPACE 600 DATA153,214,085,214,153,056,170,06& <235> 
RVSONFRETURNLRFSOFEN" <723 &1ü DATA090,000,000,000,086,153,170,036 <138> 
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620 DATA000,000,000,000,036,170,153,05& 
630 DATA128,192,048,220,129,214, 170,153 
640 DATA153,170,214,129,220,048,192,12B 
650 DATA0O1 ,002,005,034,214,153,129,214 
660 DATAZ14,129,153,214,036,005,002,001 
670 DATA153,064,214,036,128,000,000,000 
680 DATA127,024 ,002,059,002,056, 128,002 
690 DATA000,000,000,255,128,192,224,240 
7009 DATA000,000,000,001 ,003,007,015,031 
710 DATA000,000,024,036,036,024,000,000 
720 DATA255,170,170,255,170,170,255, 170 
730 DATA002,000,000,012,000,001,128,002 
740 DATA-1 

750 DATA46,0,51,46,1,51,46,2,51 ,46,3,51 
760 DATA110,5,51,9& 

7709 POKEO,15 

780 PRINT" {DOWN2>OADTDONNZ2 HOHE>" 3 :POKE 
1319, 133 POKE1320, 13: POKEZ39 ,2 


een zer 


100 REM HHERIHHAHHR EEE EHEN TERN ENTE 


11G REM * -- AIRWOLF-SPIEL -- * 
120 REM RBB ERHRIHASIHHIIHIEEIIRIIFIEHIENE 
130 REM # WRITTEN BY #* 
140 REM +##* 3 
150 REM ###* ANDREAS FOLEFKA RR 
150 REM ###%* Aa 
170 REM #*#* 5470 ANDERNACH 1 “Hr 
180 REM ## ' *%* 
190 REM # £C1 198% %* 


200 REN HBHBBR BI 

210 TOLGRO,1 

220 COLOR4,3,3 

2590 COLOR1,2 

2409 REM HHHHHHHHRHHH 

250 REM ## TITELRBILD ## 

2680 REM mer 

270 FOKES53298 ,PEEK (452983 AND251 

280 COLOR1,8,3:PRINT" CLEAR DOUNZ RIGHT2 
SPACEY var {BPACEZF v{SPALE} vn w{iSPAGCELI TE 

PACE2Y »{SPACE2I vISPALE2I vn wniSPAGCEZI TISPA 
CEs3 vr r"rH=1 

290 COLOR1,8,4:PRINT" IRICHTZITTSPACEISI mt 
SPACE} "{SPACEI TISPACEZITTSPACE I WTISPACER} 
wISPACEZIHTISPACEI H{SPACEZI WISPACEI TiSPAC 
E43 7" 

300 EGLOR1,8,5: FRINT"TRICHTZ2I TISPACETI HT 
SPACE} T{ISPACEFTESPACEZI VISPACE? WISPACEZI 
niSPACE2ITISPACEI WISPACEZ? TISPACEI iSPAC 
E4} el 

310 COLOR1,8,43PRINT" RICHT I T{SPACEZI TE 
SPACEITISPACEIHTSPACE ZI WI{SPACEFI WiSPACE2Y 
TISPACEZIWISPAGEI WISPACETI v{SPACE} n{3PAC 
E4} m" 5 

320 COLOR1 „8, 7:PRINT” £RIGHT23 varwrr {SPACE 
IntSPACEI vn {SPACE2Y TVESFPACEZITISPACEEI at 
SPAÄCEIHISPACEFTI TISFACEF TI BPATESI rn" 

330 COLORI „8,6: FRINTFLRIGCHT ZI M{SPACEIT TE 
SPACE T{SPACEIwwiSPACEZIMISPACE2Y v{SPACE 
ZI+wm{SPACEITMISPACEZIMISPACEI WiSPACEAI m” 
340 COLOR1,8,5:PRINT"{RIGHTZ2I W{SPACEII MT 
SPACE} v{SPACEI TTSPACEI „{SPACEZY Tw{SPACE2} 
wiSPACE2+ WISPACEIWESPACEFI T{SPACEI T{SPAC 
Es} m" 

350 COLGRI „8,4: PRINT" {RICHTZITISPACEII mE 
SPACE} v{SPACEF W{SPACE23 {SPACE} v{SPACE2} 
miSPAGCE2I w{SPACE} W{SPACEI}I W{SPACEI W{SPAC 
£4} rt 

360 COLOR ,9,3:PRINT"SRICHTZ2IHTSPACEII HT 
SPACEI TISPACEI TIEPACE2I TW{SPACEZYI Tv{SPACE 
ImwniSpAcEIt wrnispAtcE2r vr riSPACE}w"ıCOLO 


























<188> 
x177> 
<957 
x95> 
x209> 
sas> 
<219> 
<97> 
<77> 
<xB1> 
697 
<18> 
<88> 
2497 
<148> 
*77 


<41> 


<211> 
<93> 

<231> 
<169>7 
x<103> 
<103> 
#1053> 
<z41> 
s143> 
*142> 
“33? 

977 

x137> 
1235 
<165> 
%97> 

<106> 
727 


x16527 


x73> 


<B97 


1055 
<112> 


<ı191> 


<162> 


x1353> 


programme 


R1,2 
370 PRINT"{DOHM RIGHTS RVSOHIWRITTENTSFA 
CEIBYTSPACE}ANDREAS{SPACEIPOLEFKATRVSOEF 
y“ 


380 PRINT" {RIGHTIS RVSONILCITSPACEIIBSL 
RVSBFE}" E 

370 PRINT"{RIGHTII DOHN RVYSONR>FUNKTE"SFU 
s"TIME"3 INT(ZIIG "IRVSOFFF":CLR 

400 PRINT" {RIGHTII DOHN4 RVSBN ELASHONYP 
RESS{SPACEFFIRETSPALEFBUTTON{FLASHOFF RV 


SQEF>" e 

40 As="7_|  tSPALEIIT—I I TSPALEFIT— | Rt 
SPACESIT—I MKISPACEII — I, TSPACESIT—| A f& 
PACEII” 


420 RESTORES301N=1 

450 READX,Y: Y=Y#10: IFJDOY (1) >127THENSSO 
440 PRINT" {HOHE DOWNISY"SMID${A$S,H,40)5 
450 IFH=8THENH=1 

4409 H=H+1 

470 IFX=-1THEN420 

480 SUUND1 ,X,Y:SOUND2,X-2,Y 

4970 GDTO430 

500 REM He 

S10 REM #* TITELMUSIK ##* 

520 REM eine 

530 DATA7397,1,685,1,596,1,724,1,643,2,48 
5,1,576,1,739,1,724,4,739,1,685,1 

540 DATA3F5,1,724,1,645,2,9415,1,453, 1,51 
5,1,518,1,571,1,594,4 

550 DATABS4,1,881,1,974,1,834,4,770,1,81 
0,1,854,4,834,1,8901,1,974,1,834,4 

560 DATA770,1,910,1,834,4,834,1,981,1,87 
4,1,834,4 

570 DATA770,1,854,1,770,1,034,14770,1,893 
4,1,770,1,834,1,770,1,-1,0 

580 FRINT"TCLEAR}" Ss PU=0: ZI=Q 

590 CHAR1,0,1,„"ISPACEIPUNKTEISPAGE2OYITIM 
E{SPACEPF"SLE=1:COLOR1,10,7 

600 FRINT" S24222L122 22204422 HD HIHI 2 
BERRLRRIHR" 

a1 PRINT" {SPAGEISH> xt 0 
» 

&20 PRINT"X#t{SPALCE1O> I{SPACEIIY_V, 
—hXo_" : 

630 PRINT"___TTTTTIKSPACEISI HIN — 
= | 














640 PRINT" __TTTKSPACEISY |%. or 

x 

&50 PRINT*_TIIXSEACEZII__ 

&60 PRINT*__TLSPACE23} | | 14. Dr 1" 

670 PRINT®X#XtSPACEL13I0_— -TSPAGEI} #. 

AL ix 

&80 PRINT“_# | .CSPALE10} 10._4X_ rtSPACE127* 
% A 

690 PRINT" _X#CSPACEION ——_ NXSPACELLI 

1XR___" 

700 PRINT?__XXTSPACEIIO_ I -——O@ | SPACEI 

o>Qa ” 

710 PRINT" +ItSPAGES}O. KO 








SPACES)Y 2.0..." 
720 PRINT" _X_—_ + ASPACESI OK _—. | Kr 
ASPATCESIR__HN_" 














730 PRINT" _— #0 ı——— tt. 14-3 
PACETIO_#__" 

740 PRINT” Y r vruKtE 
FACESY 1. 10" 

730 PRINT" PK ——n I DR RE 





PACE73 08. a 

760 PRINT"___—_—  X4_X{SPACESI 
XSPACESI_ 1." 

776 PRINT"__X { 1#_—X I. IKESPALEIIAX_XISPA 
CESH IR IK —” \ 
780 PRINT" __@LSPACES> |{SPACEL1} | |ESPACER 
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19743 


<I> 
“203? 


“44> 


<89> 


<110> 
KAR> 
<x121> 
<1747 
«AS? 
<23g9> 
%95> 
<200> 
x53> 
x116> 
2377 
<137> 
*192> 
12> 
<148> 
<149> 


s537> 
<49> 


<17> 
<113> 
<24> 
<209> 
<67> 
<99> 
<59> 
<148> 
<597> 
<220> 
<957> 
s68> 
<233> 
a2? 
<118> 
<90> 
<115> 
<102> 


<97> 






































Programme 


I0Hu__ 

790 FRINT"X_ KESPACET} | OxX# TSPAGETY |TSPA 

CET I _0___" 

800 PRINT"_I TSPACES} I0_0) —_ IX 1 co _ IA 

ASPACESI KO A__" 

819 PRINT"X ITSPAcEs3 4. 

Or Or 

820 PRINT"__{SPACE7F} 
THOHE}" = COLOR1 ,2:G0T01080 

830 CHAR1,0,1,"{SPACEYPUNKTETSPAGE2O+TIM 

E":LE=2: CGLOR1,10,7 

840 .FRINT"CHDONE DOWN27 AehhaaHhSh ehe 

RADLER AS HE" 

850 PRINT"_WISPRACETS- + IH. 1 

I- I IM IX 

880 PRINT" _#ISPACES} | IH —_—__——— NE 

PACESI»__0O_ |_" 

870 PRINT" _ -ISPACEI2> |. |8_ |# IKT IKISPAKE 

5 | Ir" 

880 PRINT" __xX# -I1{SPALEFF |T3PACETFF |{SPACE 

103 |{SPACEZIT_" 


a 























890 FRINT” AI PA SKK. - 
WHISPACESY I" 

29G PRINT" HK IH Hr] RT 
SPATCEF}__" 

an PRINT" x m I I tx SPACEZ 


+ ITEBPACES} |D__H+_” 
970 ERENEERTT NR REITT UN IST CERAGE BIOS | 


EN ER 2 Ba 


930 PRINT#_PXLSPAGEI |KSPACESI ITSPAGES> It 
SPACEI2I \.x* en 











9409 FRINT"„HXSPALESH 0 Ur ol Wi 

a eg ME 

750 PRINT" __ ‚tSPAcEI> I ı* Re a | 
BEL 220] 5 RER) & RREER 

F&0 PRINT" TESBAGEZS 1# 0 | KISPACEIOF | 
TSPACETIR—_ 


970 ERENTT—__ -CSPACED> | ESPACELO I MW Id, 
TSPACESY+_" 








980 PRINT” BIC WO En /ASPAGESI RR | 
AK |LSPACESIR_" 

390 FRINT" K——XtSPAbcER} If 
SPACESIT_" 

1000 PRINT" __. Ir. 1# IX | —l Ar# I. 0 


_ »TSPACESY%.___X" 

1010 PRINT"__{SPACE#} | {SPACE103 %__ 96x | 
Kr I I{SPACESIO__" 

1020 PRINT"_YLSPACESI0_W0 ‚ÄSPALES} | ESPAC 
E43 |ESPACETI ® SEPACEFI A" 

1030 PRINT" _XISPACES | I XI LH WET 
PACETY X \TSPACES> #_" 

1040 PRINT"_{SPACEB} |CBPACES} HSPACEI} IX 
SPACE 1OFG._" 

1050 FRINT*. KSPACES? IM _ 101 WAR a AS 
PACES}O_ ‚00 x " 

1060 PRINT" _ASPACET} 

en <HONE}"=COLOR1,2 
1070 POKEA037 „81: IFK=1THENPOKE4037-1024, 
255 

1080 IFA=3ANDLE=1THENE=3994: B=2: A=25: CHA 
R1,B,A,"-41 "160701110 

1090 IFLE=ZANDA=24THENE=3275: B=s3: A=4: CHA 
R1,B,A,”-41——"360T01110 | 

1100 E=3235: B=31ı A=4: CHAR1 „By A, "al" 
1110 J=J0Y41} 

1120 IFLE=1ANDA=24THENBSO 

1130 IFLE=2ANDA=STHENSIO 

1140 IFZI<SOANDZI >2ANDE=3235ANDLE=1THEN2 
140 

1150 IFZI>SOTHEN2100 

1150 IFK=1THENZI=ZI+.2 

1170 S0SUB2080 . 

1180 ONJ+4G0T01190,1200,1220,1240,1240,1 








rt 95 





<46> 
<258> 
<42> 
<188> 
<194> 
<13> 
<18> 
<138> 
x103> 
<134> 
<248> 
<118> 
<162> 
<14B> 
<235> 
<179> 
<121> 
<162> 
<3> 
<22> 
«isir 
<31> 
<207> 
<239> 
<0r 
«2043 
<215> 
<16> 
<219> 
<246> 
<184> 


<a5> 
<IAS> 
<ü> 
82: 
<71> 


2457 
<B357 

<121> 
s2531> 


280 ,1300,1320,1340 
1190 E=E:FÜRG=OTO10:NEXTG:GOTOLS&0 


‚1200 E=E-403 CHAR1 ,B,A,"tSPACESY"=R=Ar1:B 


=Bs IFPEEK (E) < >3ZORPEEK (E+4) < >S2THEN1510 
1210 CHAR1 ,B,A,"-41 "260701340 

1220 E=E-39: CHAR1 „B,A,"{SPACESY"2A=A-1:B 
=B+1: IFPEEK (EI< >32ORPEEK (E+4) < >32THEN151 
0 

1230 CHAR1,B,A,"-41—":G60T01360 

1240 E=E+1:CHAR1,B,A," {SPACESY”" sA=A: B=B+ 
1: IFFEEK (EI < >32URPEER (E+4) < >32THEN1510 
1250 CHAR1,B,A,"-21--":6DTO1340 

1260 E-E+41:CHAR1 ,B,A,"CSPACES? "sA=A+1ıB 
=B+1: IFPEEK {E) < >320RPEEK (E+4) < >52THEN1S1 
o 

1270 CHAR1 ,ByA, "| —":GDTO1360 

1280 E=E+40: CHAR1 ,B,A,"{SPACESI"2A=A+1:B 
=B: IFPEEK {E) < >3Z0RPEEK tE+4) < >SZTHEN1510 
1290 CHAR1 ,B,A, "#1 —"360T01360 

1300 E=E+39: CHAR1,B,A, "{SPACESI":A=A+1ıB 
=B-13 IFFEEK (E) < >320RPEEK (E+4) <>32THEN1S1 


0 
1310 CHAR1,B,A,"-_] 1 "80101360 

1520 E=E-13CHAR1 ,B,A," {SPACES}"A=A: B=B- 
1: IFPEEK (E) < >320RPEEK (E+4) X >32THEN1510 
1330 CHARL,B2A,"T—1 I "3S0T01360 

13409 E=E-41: CHAR1 ,B,A,"{SPALESI"TA=A-1:B 
=B-1: IFPEEK (E}< >3ZORPEEK (E+4) < >32THEN151 
{e} 

1350 CHAR1,B,A,"”-1 1, ":60701340 

1360 SOUNDZ,900,3 

1370 IFZ>OTHEN1400 

1380 KU=INT (RND (1) #840) +3192: Z=1 


1370 IFPEEK KU) <>32THENZ=O 


4400 IFX=1THEN1570 

1419 IFX=2ZTHEN184Q 

1420 IFX=3THEN1880 

1430 IFJOYt1) >128THENI1740 

14430 IFJDY{i1)=128THEN1580 

1459 IFZ=1THEN1F7&0 

1450 IFZ=2THENIYFBA 

1470 GürTO1110 

1480 REM HERBST 
1490.REM ###* VERLUST EINES AIRWOLFS ##%* 
1500 REM Rare EEE HEHE IN HH HEN 
1510 FORG=0T04: POKEE+G, 70:NEXTS 

1520 FORG=1T03: POKEE-40+46 , 95: POKEE+A40+G, 
935:NEXTG 

1530 FORG=1OUOTD79GSTEPF-5: SOUNDZ,G,2 
1540 NEXTG:G0T0280 

1550 REM HH 

1560 REM *## BOMBE *** 

1570 REM Hitsestatafteseee 

1580 D=E+42: X=1: IFPEEK (DI< >32THENLASO 
1570 POKED,32:D=D+40: IFPEEK (DI < >SZTHENI1& 
so 

1500 POKED , 76: IFZ=1THEN1940 

1#10 IFZ=2THEN1980: ELSE1110 

1620 REM Herieieseitee ee 

1450 REM ### AUFSCHLAG ### 

1640 REN isst 

1650 IFPEEK (DI=93THENPU=PU+F0:P=32: GOTO1 
8909 

1450 IFFEEK (DI =S7FTHENPUFFUFI SO: PH32E Z=00 
GOT01&970 

1470. IFFEEK (DI=B1THENPUSPLU+-FOO:K-1: P=din 
POKED-1024 „255: G0T01690 

1580 P=PEEK(D) 

1470 POKED, 70: FORGSB00T07009STEP-10 

1709 SOUND3,„G,ZıNEXTS 

1710 POKED,P:X=0 
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x121> 
S24> 


<F1> 
<85> 


Er=7=P2 
<105> 


<2Z08> 
«1257 


x22> 
<145> 


<142> 
<166> 


<138> 
205? 


Sad? 
<225> 


<165> 
<245> 
<217> 
<118> 
£173> 
<a> 
<230> 
<201> 
<15> 
<101> 
<119> 
<32> 
<a2> 
<ZAB> 
<146> 
£71> 
<i> 
«122> 


“ra> 
z2a> 
<1354> 
%«179> 
x7772 
199> 
x12> 


<170> 
<2&6> 

<135> 
<205> 
<170> 
<225> 


<54> 
<213> 


<103> 
<122> 
<188> 
<183> 
<39> 
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tips & tricks 














1720 GD0TO1110 <240> 17806 POKEKU,32:KU=KU+40: IFPEEK (KU}< >32TH 
1730 REM KumEHRKUcHNie E21 > ENZ=0: GOTO2000 “bl> 
1730 REM x## RAKETE ###* x190> 17970 FOKEKU, 77: Z=2:G0T01110 <s142> 
1750 REM KUH KZAl> 2000 IFPFEEK (KU) >&43ANDPEEK (KU)<T74THEN1510 <2509> 
| 1766 IFPEEK (E)=64THEN17B0 <202> 2010 IFPEEK (KU) =740RPEEK {KU) =75THENPU=P 
1770 IFPEEK (E}=6&9THEN1850 <227> +150: X=0: POKEKU, 32 <70> 
1780 D=E+5:7X=2 x56> 2020 H=PEEK KU) 2 <17> 
1790 PDOKED-1 ‚78: SOUND3 „600 ,5: FORSZ=ATO10O 2030 POKEKU,70:SODLND3,800, 10: FORSX=0TQ10 
:NEXTSZ: POKED-1 „68 <255> :NEXTSX $175> 
1800 IFPEEK (DI <>32THEN1450 <80> 2040 POKEKU,H:GOTO111O «1537 
1810 POKEN ‚32: D=D+25 IFPEEK (D-1)< >32THEND 2050 REM Kanne s241> 
=D-1:60701550 <140> 20680 REM # PLNKTE/LEVEL/TIME # <235> 
1820 IFPEERK tDI< >3ZTHEN1550 <x100> 2070 REM Kara x5> 
18309 POKED, 74: IFZ=1THEN1740 247 > 2080 CHAR1,7,1,5TRF (PU) <59> 
1840 IFZ=2THEN1FB0:ELSE111O <110> 2090 CHAR1,31,1,STR$(INT(ZII } ERETIRN <240> 
1850 D=E-1:5=Aı T=Bb-1:X=3 9397 > 2100 FORL=1000T00STEP-5 <206> 
1850 POKED+1 ,773S50OUND3,509 ,5: FÜRSZ-OTO1LO 2110 V=INT (RUND (1) #255): SDLUNDS ,L,2 <95> 
ıNEXTSZ:POKER+1 ,69 Sa4> 2120 FOKEASSO1 ,V:NEXTL j <26> 
1870 IFPEEK DI<>SZTHENL450 <150> 21350 RUN <228> 
"1880 POKED,32:0=D-2: IFPEEK (D+1)< >32THEND 2140 CHAR1,8, 10," {RVSON}HERZLICHENTSPATCE 
=D+1:GB0T01450 j «175> 3GLUECKWUNSCH IRFSOFF}" 2 2ZI=0:K=0 N <40> 
1890 IFPEEK <DI< >32THEN16S0 <170> 2159 CHAR1 „8,12, "SAVSON>SIEISPACEIHABENE 
1700 IFT<1THENX=06:GOTO1110 <28> SPACEYESTSPALEFGESCHAFFT {RVSOEFF" aPU=PU* 
19109 POKED, 75: IFZ=1 THEN1740 <74> 500 <173> 
1920 IFZ=2THENI1FS0: ELSE1110 <1907 2140 CHARI „4,14, " TRVSONFHUNDTSPACEFNUNISP : 
1730 REM HHRHUuHHEHEEHHER «108&> ACE?ZUMTSPACEINAECHSTENTSPACEIRBENTEUERT 
1740 REM ### FELSBRICKEN ### 2243 BYSBERF” x202> 
1950 REM Er %126> 2170 CHAR1 ,11,1&,"{RVSDN FLASHONFPRESS{S 
1940 IFPEEK (KU) "A3ANDPEER {IKU)<F74THEN1S10 <210> PACEFFIREISPACESBUTTOMIRVSDFF FLASHOFEFE3Y 2923 
1770 IFPEEK (KU) < >3ZTHENL11O x<171> 2190 IFJDYt1}=129THENS?7O:ELSE2180 «589> 








UPS & TRICKS für den L-16/116 


UPDATE für die Beep-Routine 


Die Beep-Routine (C-16/C-116) aus Heft 4/86 habe ich abgetippt und mir | 


ist aufgefallen, daß das Maschinenprogramm in einen sehr ungünstigen 
Bereich gefallen ist. Laut des Beitextes „merkt der Anwender von Exi- 
stenz und Ablauf der Routine FAST NICHTS“. Das „fast nichts“ hat mich 
dann stutzig gemacht! Da Graphik nichtmöglich war und obendrein mein 
60K Speicher auf12K wieder absank. Schade, aber die Abhilfe warlleicht, 
Kurz das ROM-Listing nach freiem Speicher durchwühlt und, was mich‘ 
auch selbst erstaunte, einen Speicherbereich, der für 12 K und auch für 
60K zu gebrauchen ist, gefunden: Den Rambereich für Sprach-Synthesi- 
zer $065E - $ 06EB. Ich habe dann nurnoch die Interrupt-Adresse geän- 
dert und schon ging es los, 


Vorteile: 

- Die Graphik ist für die Zeichner voll einsetzhar 

- Die Routine ist nach einem RESET ohne vie) Mühe mit einem SYS-Befehl wieder 
aktiv 

- Der Speicher ist voll erhalten und ohne Einschränkung für BASIE verfügbar 


Nachteil: 
- Wer diesen Bereich schor belegt hat, muß entweder auf die Beep-Rouline ver- 
zichten oder sich was Neues einfallen lassen. 

Wer die Beep-Routine schon eingegeben hat, braucht nur in Zeile 10005 
und 10006 die folgenden Daten ändern: 10005 Data A2,75; 10006 Data A0,06 
und die Start- und End-Adresse in Zeile 10030 in For t=1630 101674 und in 
Zeile 1110 # P=5208.... und Zeile 0 entfällt. Alles andere bleibt wie ge- 
habt. Das Abspeichern der Routine wird dann über TEBMON gemacht. 
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18 FORI=BT04E 


28 READA$ A=DECKAS) :POKEL530+1, A: B=B+R 
38 NEXT: IFB=S208THENSYS1650 


iB8 REM DATA 


CSompube mik 


116 DATA 78 :REM SEI 

120 DATA AP, FF :BEM #E7F 

128 DATA SD.iO,FF :REN STA $FFiO 
140 DATN A3, 50 'REM LIA #458 
159 DATA SD:OF,FF :REM STA $FFör 
169 DATA A275 :REM LDA #475 
178 DATA Ao.06 :REM LT Has 
188 DATA SE;14.03 :REM STR #0314 
198 DATA 80.15,83 :REM STT $8319 
208 DATA 58 REM ELI 

218 TATA 68 :BEM RTS 

228 DATh AS.CE :REM LOR $06 
230 IATA 09,48 :REM CMP#E4O 
248 DATA FB.08 :REM BER $0583 
250 DATA A922 :REM LDA #22 
268 DATR SD, 11,FF :REM STA $FFil 
E78 DATA 4C.dE-CE !REM JMP $CEBE 
280 DATA A9,00 'REM LDR #08 
ZI0 DATA BD.11,FF REM STA $FFil 
Ssa8 DATA 40,0E,CE :REM IMP $CEBE 
316 DATA 88 REM  BRK 

320 DATA 00 :REM  BRK 


37 






































Die Erweiterung des Speichers auf 64 K- 
Byte wird am Beispiel des G-116 bespro- 
chen. Da aber die Nummern und An- 
schlüsse der Chips beim G-16 gleich sind 
und nur die Lage der Bauelemente anders 
ist, kann auch dieses Gerät nach dieser 
Anleitung erweitert werden. 
Obwohl der Umbau des Rechners an sich 
einfach ist, sollte sich dennoch jeder Um- 
bauwillige fragen, ob er auch genügend 
Erfahrung im Löten feinster Leiterbahnen 
hat. Abgelöste, verbrannte oder falsch 
durchtrennte Leiterbahnen versprechen 
Ärger. Eine doppelseitige Platine zu repa- 
rieren, gleicht einem Geduldspiel. 
Für Unsichere gibt eseinen einfachen und 
billigen Weg ihre Fähigkeiten zu testen. 
Löten Sie z. B. einen 7400 Baustein für ca. 
2,-- DM auf ein Stück Experimentierplati- 
ne. Damit haben Sie geübt und Sie wissen 
sich und Ihre Fähigkeiten einzuschätzen. 
So sind vier Voraussetzungen zum erfolg- 
reichen Basteln unerläßlich: 
1. Ein qualifizierter Umrüster 
2. Gutes Werkzeug 
3. Ausreichend Zeit 
4. Noch mehr Geduld 


Folgende Werkzeuge sind zu beschaffen: 
- Ein kleiner Elektonik-Lötkolben mitfei- 
ner Spitze. Leistung ca. 16 Watt 

- Elektronik-Lot mit 60% Zinn-Anteil 
und einem Durchmesser kleiner als 1,5 
mm 

- Ein kleiner Seitenschneider, möglichst 
mit planen Schneiden 


Be 


- für weniger als 50 DM 
- voll kompatibel zum Urzustand 


durch Umschalter 


- Ein feiner Uhrmacher-Schraubenzie- 
her oder ein spitzes scharfes Messer 
zum Durchtrennen zweier Leiterbah- 
nen 

- Einkleiner Kreuzschlitz-Schraubenzie- 
her 

- Ein Bohrer für den Schalterdurchgang 

- Eine Entlötpumpe; zur Not tuts auch 
Entlötlitze 


Benötigte Bauteile: 

1. Die neuen Speicherelemente: 4x 64. K 
dynamische RAMs z.B. von Texas In- 
struments TMS 4464-15. Dieses Bau- 
teil wird 2 x benötigt. 

2. Ein 2fach UM-Schalter. Vom Einbau 
her sollte es ein Micro-Schalter mitwe- 
nig Platzbedarf sein. 

3. Feine Litze für die Verbindungen. 

Die genannten Bauteiletypen sind keines- 

wegs ein Muß. Es wurden lediglich mit 

diesen Typen Erfahrungen gesammelt. 

Eine mögliche Bezugsquelle findet sich 


am Schluß. Der Preis für die beiden Spei-- 


cherbausteine und den Microschalterliegt 
unter 50,-— DM. 


Vorbereitungen: 

Bevor Sie anfangen, sich mit dem Innenle- 
ben Ihres Rechners zu beschäftigen, soll- 
ten Sie stets an einen geerdeten Gegen- 
stand gefaßt haben, um elektrostatische 
Aufladungen abzuführen. Blitze vorn Syn- 
thetikpulli sind das Ende des Gomputers. 
Mit dem Kreuzschlitz-Schraubenzieher 
werden nun die vier Gehäuseschrauben 


Gompute nib 


an der Vorder- bzw. Rückseite des Rech- 
nersentfernt. Beachten Sie, daß die länge- 
ren Schrauben später wieder zum Ver- 
Schrauben der Rückseite verwendet wer- 
den. Heben Sie jetzt vorsichtig das Gehäu- 
se-Überteil ab. Sie müssen dabei einen 
kleinen Klemmwiderstand überwinden. 
Sie sehen jetzt ein mit Leiterbahnen verse- 
henes Kunststoffband von der Tastatur im 
Deckel zu einer Buchse in der Platine rei- 
chen, Ziehen Sie das Band (vorsichtig!) 
aus der Buchse indem Sie beide Hände 
aufdas Abschirmblech auflegen, mit Dau- 
men und Zeigefinger das Band greifen 
und nach oben herausziehen. Es geht an- 
fangs schwer, aber bitte trotzdem nicht zu‘ 
heftig reißen. 


Nun werden die Halteschrauben für das 


Abschirmblech herausgedreht. Achten 
Sie beim Abnehmen des Bleches darauf, 
daß die heruntergebogene Lasche nicht 
verbogen wird. Sie dient der Kühlung des 
TED-Chips. Bei schlechter Auflage sollte 


‘die Lasche evtl. mitetwas Wärmeleitpaste 


bestrichen werden. Nun schrauben Sie 
noch die Schrauben zur Platinenhalterung 
heraus. Jetzt haben Sie Ihren Einplatinen- 
Computer in der Hand. 


Der Umbau: 

Sehen Sie nun nach vorne rechts. Dort 
sind zwei längere IC’s (18-polig) mit den 
Nummern U5 und U6. Dies sind die beiden 
Speicherbausteine, die ausgewechselt 
werden müssen. Beim Herausnehmen 
sollte nicht an eine Erhaltung der Baustei- 
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LEITERBAHN UNTERBRECHEN 


> 


' HIER DURCHTRENNEN 


Ansicht von vorne Ansicht von oben (Bauteileseite) 





Bild ı | Bild 2 


Hier 


Leiter- 
bahn‘ 
unter 
brechen 


Ansicht von unten (Leiterbahns.) 





Ansicht von oben (Bauteileseite) 





Bild 3a s . Bild 3b 


ee Umschalter 


Ansicht von unten RE, - Schalter auf 64-K-Stellung 





Bild 4 
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werkstatt 


ne gedacht werden. Erstens werden sie 
nicht mehr benötigt, und zweitens ist die 
Erhaltung der Platine höchstes Gebot. So 
knipsen Sie bei den IC’s wie auf Bild 1 ge- 
zeigt am Gehäuse alle Beinchen ab. Dann 
werden die Beinchen vorsichtig nach und 
nach herausgelötet und jeder Lötpunkt 
anschließend mit der Entlötpumpe oder 
der Entlötlitze von Lotresten gereinigt, 
Beim Einlöten brauchen die neuen Bau- 
steine übrigens nur von unten gelötet zu 
werden, da das Lot nach oben durch- 
dringt. Die Lage der Kerbe im IC muß un- 
bedingt dem auf der Platine aufgedruck- 
ten Umriß entsprechen, damit der Spei- 
cher richtig gepolt wird. 

Nun müssen zwei Verbindungen unter- 
brochen werden. An U8 ist auf der Bautei- 
le-Seite der Platine die Verbindung zwi- 
schen dem Pol 16 und dem Pol 14, wie in 
Bild 2 dargestellt, zu unterbrechen. An U7 
muß auf der Platinen-Unterseite die Ver- 
bindung zwischen Pol 2 und Pol 16 ge- 
trennt werden. Siehe Bilder 3a und 3b. 
Achtung: Beim Umdrehen istdie Zählrich- 
tung der Anschlüsse gespiegelt (Bild 3b). 
Verbinden sie jetzt noch entsprechend 
Bild 4 die CPU (U2) an den Polen 22 und 
21 mit dem Schalter und den Polen 2 und 
14 von U7 und U8. Den nun noch benötig- 
ten Pluspol können Sie beispielsweise an 
einer Leiterbahn anschließen, die mit Pin 
16 von U7 oder U8 verbunden ist. 

Es bieibt im Wesentlichen dem Ge- 
schmack eines jeden einzelnen überlas- 
sen, wo er den Schalter einbaut. Um je- 
doch übermäßige Kabellängen zu vermei- 
den, istesam einfachsten den Schalter di- 
rekt gegenüber der Einbuchtung in der 
Platine bei den Bausteinen U7/U8 einzu- 
passen. 


Sollten Sie daran interessiert sein, ein Ein- 
gabe/Ausgabe-Interface anzuschließen, 
wie es in einer späteren Ausgabe von 
COMPUTE MIT noch besprochen wird, so 
sollten noch zwei kurze Kabel gelötet wer- 
den, um ein unnötiges Öffnen des Rech- 
ners zu vermeiden. 

Achtung: Der Baustein, an dem die Kabel 
angelötet werden sollen, hat im C-116 die 
Nummer U101 und im C-16 die Nummer 
vis!!! 


‘Verbunden werden muß der Pin 15 von 


1101 (nicht benutzt) mit Pin Z. des Expen- 
sion-Ports. Wenn der Rechner mit der 
Bauteile-Seite nach unten und mit dem 


 Expensionport zu Ihnen auf dem Tisch 


liegt ist Pin Z der vierte Pin von rechts der 
Reihe vorne zum Platinenrand. Weiterhin 


sollte Pin 16 des gleichen Bausteines für 


eventuelle Erweiterungen auf Pin AA, das 
ist der dritte Pin von rechts der gleichen 
Reihe, gelegt werden. 

Vor dem Zusammenbau sollten Sie Netz- 
und Antennen- bzw. Videokabel anschlie- 
Ben und den Rechner einschalten. Der 
Textsollte jetzt... 60671 BYTES FREE lau- 
ten. Wenn nicht: Keine Panik! Legen Sie 
den neuen Schalter um und drücken Sie 
die Reset-Taste. Erscheint immer noch 
nicht das Gewünschte oder etwa ein Wert 
von ca. 28 kbyte, so muß die Verkabelung 
überprüft werden. Wenn Ihr Rechner ein- 
wandfrei funktioniert, bauen Sie ihn in 


‚umgekehrter Reihenfolge wieder zusam- 
‚men. Vorsicht beim Folienleiterband der 
Tastatur. 


Damit ist der Umbau an der Platine des G- 
116 beendet. 

Ein Hinweis für Insider: 

Im Graphic-Modus liegt in der 12kbyte 
Version das Programm VOR dem Graphik- 
bereich, in der 60kbyte Version wird beim 
Graphik-Aufruf alles HINTER den Graphik- 
bereich transferiert, auch Maschinenpro- 
gramme. In dieser Tatsache liegt der 


Bezugsquelle für die-Bauteile: 


KIAUSCELTSCEN 


Fa. Elektronik Richter, 


In der nächsten 
Ausgabe: 


VERSITALE 


INTERFACE 


(Eingabe - Ausgabe) 
im Selbstbau 


Grund für die Notwendigkeit eines Um- 
schalters auf Originalzustand, z.B. bei ei- 





nigen Spielen. Um noch einmal darauf 


hinzuweisen: Es gibt Programme, die mit 
keiner noch so guten POKE-Kombination 
zum Laufen gebracht werden können, 
wenn der Rechner auf 60kbyte-free um- 
gerüstet ist und KEINEN Schalter besitzt, 
um auf 12kbyte-free umzuschalten. 

Sollten Sie den Wunsch haben, an Ihrem 
„Gummi“-Gomputer eine andere Tastatur 
anzuschließen, so ist das Parallel zur Ori- 
ginaltastatur möglich. Wenn dafür Inter- 
esse besteht, so schreiben Sie uns. 


Michael Lausch 


6200 Wieshaden, 
Tel. 051 217.37 7117. 





technisch unerfahrene C-16/116-Freunde 


Um auch den in Hardware unerfahreneren 
C-16/116-Freund die Möglichkeit der 
RAM-Erweiterung zu geben, haben wir 
uns noch mit einer weiteren Firma zusam- 
mengetan. Diese Firma übernimmt für Sie 
den Umbau Ihres Systems, wenn Sie Ihren 
Computer einsenden, zu einem Preis von 
79,-- DM inclusive Bauteile und Arbeits- 


Gompute eanöb 


lohn. Die Umbauzeit liegt in der Regel bei 1 
Woche. Wer Interesse hat, wendet sich 
bitte an folgende Adresse: 


Wolf-Dieter Herm 
Bischoisgasse 9 
6940 Weinheim 

Tei.: 06201/69189 
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Bei diesem Spiel ist Geschicklichkeit ge- 
fragt. Schlagen Sie mit Hilfe eines Schlä- 
gers den Ball gegen eine Mauer aus Stei- 
nen. Trifft der Ball einen dieser Steine, 
werden Ihnen 5 Punkte gutgeschrieben. 
Bei einem Bonus-Stein sind es sogar 100 
Punkte. Trifft der Ball aber das grüne Herz, 
so springt das Spiel in das nächste Level, 
in dem die Spielgeschwindigkeit erhöht 
wird. Insgesamt müssen Sie sich durch 5 
Level schlagen. Das Spiel ist vollkommen 
in Maschinensprache geschrieben. Ge- 
spielt wird mit „2“ = links und „/* = rechts 

oder mit Joystick. 2 


Eingabehinweise: 


Zunächst Teil 1 abtippen und speichern, 
dann Teil 2 abtippen und speichern usw. 
Die Teile möglichst kurz, d.h. ohne Leer- 
zeichen zwischen den Befehlen abtippen. 
Zum Starten Teil 1 einladen und starten, 
Teil 2 und Teil 3 werden automatisch 
nachgeladen und gestartet. 


1 REM —— 4-4 Tem 
ZREM--BREAK-O UTIL1A4) — 
3 REM “mn menu 
4 REM — GESCHRIEBEN VON = Er 
5 REM —— CARSTEN REINKE m 
& REM -——- 1000 BERLIN 21 a 
7 REM mul mn nn nn 
8 


10 GRAPHIC 0,1 

20 FORA=1T018sREADB$: B=DEC (B$) sFE=FE+B:P 
OKE831+A,B:NEXTA 

30 DATA A2,00,BD,00,D0,70,00,30,BD,00,D1 
‚9D,00,31,CA,DO,F1,40 

40 IFFE< >21 15THENPRINT"DATA-FEHLERTSPACE 
+30": STUP:ELSE 8Y5832 

50 FOR A = ı TO 17 

60 READ Pa 

70 PS=12288+B»*PO 

80 FOR AN = 6 TO 7 

90 READ BY 

100 POKE PS+AN,BY:PR=PR+BY 

110 NEXT AN,A 

120 DATA 0,215,215,85,85,95,85,215,215 
140 DATA 64,171,171,171,255,207,255,243, 
255 

150 DATA 65,171,171,171,255,234,234,234, 
255 

160 DATA 66,255, 119,87,87,84,87,223,207 
170 DATA 67,255,195,195,235,235, 215,215, 
255 

180 DATA &B,213,90,90,213,213,90,90,213 
190 DATA 69,85,170,170,85,85,150,150,85 
200 DATA 70,87,165,165,87,97,165, 165,87 
210 DATA 71,255, 252,255,255,85,85, 215,21 


<167> 
<99> 


<a6> 
<144> 


<122> 
<39> 


<90> 
“2354> 
<80> 
“213> 
787 
<i12> 
<194> 
<81> 
“1753> 


<112> 


<4A> 
<142> 


<176> 
<77> 

<170> 
<1997> 





programme 


220 DATA 72,0,0,0,7,15,31,31,31 
230 DATA 73,0,0,0,255,255,255,255,255 
240 DATA 74,0,0,0,224,240,248,248,248 
250 DATA 75,31,31,31,31,31,31,31,31 
260 DATA 76,248,240,248,248,248,248,248, 
248 
270 DATA 79,248,248,248,240,224,0,0,0 
280 DATA 78,255,255, 255,255,255,0,0,0 
290 DATA 77,31,31,31,15,7,0,0,0 
300 IF PR<>19847 THEN PRINT’DATA-FEHLERT 
SPACE} 120-290" STOP 
319 SCNELR 
320 PRINT" {DOHN2+LOAD" 
330 PRINT" CHOHE}"5 
340 POKE 1319,13: POKE1320 ,82: POKEISZ1 ,21 
IsPOKE 1322,15: POKE 239,43END 

ENDE DES LISTINGS 


10 POKES2,31:POKES6,31:1CLRSSCNCLR 

20 FORA=8192T097200STEP235:FE=0: FORB=0T022 
:READC$: C=DEC (C$} a FE=FEHCAND2SS 

50 POKEA+B,EC: NEXTR: READF$:F=DEOC (F$) e IFF< 
>FETHENAO: ELSENEXTA: GOTOSO 

40 PRINT"DATA-FEHLER"360+INT ( (A-8192) 724 
325TOoP 

50 PRINT"{CLEAR DOWN2ILOAD{HOHEY" 3 1 POKE1 
S19,15rPOKE1320 ‚822 POKE1321 „213: POKEIS22 
‚15: POKE2359 ,4:END 

60 DATA A9,0B,85,D1,A9,07,85,D3,49,D8,85 
„D0,85,D2,AE,3D,03,E0,00,D0,01 ,&0,A5,E3 

70 DATA DO,18,57,28,90,04,E6,D1,E6,D3,85 
‚D0,85,D2,CA,4C, 11 ‚20,CE,3C0,03,40,EE,CB 


Gompute mib 


<158> 
“189> 

x239> 
<255> 
<114> 


<72> 
<197> 
<Bi1> 
<212> 


<128> 
<31> 
<ar 
<1&> 


<208> 


BER TE | ö Teil 2: 


<218> 
<201> 
%132> 


<02 


<121> 
<147> 


<150> 








4 
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Programme 


80 DATA 3C,03,40,CE,3D,03,60,EE,30,03,650 
‚AD,SE,03,C9,01,00,12,20,29,20,AD,3C,87 

90 DATA 03,C9,01,D0,05,A49,02,8D,3E,03,4C 
,65,20,09,02,D0,F9,20,2D,20,AD,3C,03,09 

100 DATA C9,1C,DO,EF,A7,01,8D,3E,03,AD,3 
F,03,07,01,00,10,20,31,20,AD,5D,03,C9,DE 
110 DATA 01,D0,05,49,02,8D,3F ,03,50,09,0 
2,DO,FB,20,35,20,AD,3D,03,C9,17,D0,F1,497 
120 DATA A9,01,6D,3F,03,40,AD,40,03,C09,0 
0,F0,F8,20,R0,20,CE,40,03,40,90,20,42,09 
130 DATA 04,FE,EB,0C,ED,EB,00,09,3A,D0,0 
8,49,30,9D,E8,0C,CA,10,EE ,60,20,00,20,55 
140 DATA AC,„3C,03,81,D0,C9,3F ,70,17,C09,4 
4,B0,15,09,40,D0,12,49,05,80,40,03,20,78 
150 DATA 3D,23,A9,20,91,D0,49,02,8D,3F,0 
3,60,C7,41,D0,12,A?,05,8D,40,03,20,3D,2B 
160 DATA 23,R9,40,91,00,49,02,BD,3F „03,6 
0,C9,42,D0,0D,20,D4,23,49,20,91,D0,A?,1B 
170 DATA 02,80,3F,03,60,A9,64,80,40,03,2 
0,3D0,23,47,20,91,00,99,02,8D,3F ,03,60,92 
180 DATA 20,00,20,AD,30,03,18,47,28,A8,B 
1,D0,C9,3F „90,EF ,C9,45,BO,EB,AD,3E,03,1C 
190 DATA C9,01,D0,08,47,02,8D,3E,03,40,4 
0,21,09,02,00,05,A7,01,8D,3E,03,AD,30,C9 
200 DATA 03,69,01,D0,08,A9,02,80,3E,03,4 
0,59,21,£69, 16;D0,05,49,01 ,8D,3E,03,AD,C2 
210 DATA 3F,03,C9,01,D0,08,A9,02,8D,3F ,O 
3,46,70,21,07,02,00,05,49,01,8D,3F „03,54 
220 DATA AD,3D,03,C9,01,00,08,49,02,80,3 
F,03,4C,88,21,69,17,D00,095,A9,01,80,3F ,29 
230 DATA 03,20,39,20,40,39,20,AD,3D,05,C 
9,17,00,05,49,12,80,42,03,60,20,00,20,F0 
240 DATA AD,30,03,18,69,50,48,B1,DO,C9,4 
4,00,07,49,01,80,3E,03,8D,3F ,„03,60,C09, 3% 
250 DATA 45,D00,0B,A9,00,BD,3E,03,49,01,8 
D,3F,03,60,09,46,D0,04,49,02,80,3E,03,D2 
260 DATA A9,01,8D,3F ,03,60,99,20,AE,43,0 
3,79D,77,0F „9D,74,0F,9D,9B,0F,&0,AE,43,B9 
270 DATA 03,A9,44,90,97,0F ,A9,45,9D,9A,0 
F,A?,46,9D; 9B,0F,A7,79,90,97,0B,90,9A,39 
280 DATA 0B,9D,9B,0B,60,45,C5,C9,0C,D0,0 
C,AE,43,03,E0,01,90,04,CA,8E,43,03,&0,31 
290 DATA C97,37,00,FB,AE,43,03,E0,19,B0,0 
4,E8,8€6,43,03,60,RC,43,03,20,FF,21,98,52 
300 DATA CD,43,03,F0,F3,A9,AD,43,03,80,4 
3,03,A8,20,D02,21,98,90,43,03,4C,E1,21,D7 
310 DATA 20,00,20,AD,3C,03,18,67,50,AB,B 
1,D0,C9,45,D0,04 ,EE,44,03,50,09,44,F0,9A 
320 DATA 04,07,46,D0,F7,A7,00,9D0,44,03,& 
0,AD,44,03,07,02,90,F8,AE,30,03,49,47,DB 
330 DATA 9D,90,00,A9,00,80,44,03,60,Ab,3 
£,03,B1,D0,C9,47,B0,F6,C0,0A,70,0B,49,67 
540 DATA 01,8D,3E,03,A9,20,79,70,00,40,A 
9,02,80,3E,03,49,20,97,90,0D,60,A0,18,BE 
350 DATA #A2,00,CA,D0,FD,89,D0,F8,60,AD,F 
B,BF,AA,78,BE,08,FF,AD,08,FF ‚BE,OB,FF,50 
360 DATA CD,OB,FF,DO,F2,58,49,FF,A8B,29,0 
F,AA,BD,FO,BF,CO,0F,90,02,09,80,A8,C0,7E 
370 DATA 07,D0,03,46,05,22,07,03,00,05,4 
C,15,22,60,A2,04,DE,BO,0D,BD,B0,0D0,09,53 
380 DATA 2F ,D0,0D,49,39,9D,BO,0D,CA,10,E 
E,A9,12,6D,42,03,50,20,00,20,AD,3C0,03,23 
390 DATA 18,49,28,A8,99,20,91,D0,60,20,0 
0,20,AD,3C,03,18,649,28,08,A9,00,71,D0,62 
400 DATA A9,79,71,D2,60,AD,43,03,84,04,2 
0,44, 22,45,D4,CD,43,03,F0,0F ‚AU ,43,03,93 
410 DATA 8D,43,03,20,D2,21 ,8C,43,03,20,E 
1,21 ,60,AD,30,03,609,02,F0,04,40,4C,E1,73 
420 DATA 21,AD,40,03,8D,0E,FF,AD,12,FF,0 
7,01,8D,12,FF,AD,11,FF,09,18,8D,11,FF,8C 
430 DATA 46,90,20,A5,D5,CD,43,03,00,01,4 
0,A49,03,8D,10,FF,A9,00,8D,OF,FF,AD, 11,04 
440 DATA FF,09,28,8D0,11,FF,AD,43,03,85,D 


<178> 
x20> 
<185> 
x79> 
<48> 
277 
<151> 
<46> 
<220> 
<208> 
<177> 
“198> 
<10&> 
<138> 
x71> 
x33> 
797. 
“213? 
<134> 
<&B}> 
<168> 
a> 
<103> 
<169> 
*727 
<117> 
“7977 
<124> 
«125> 
<5? 
«179> 
«1355 
<&2> 
<34> 
<220> 


<1> 


5,60,A7,00,3D,0E,FF,aD,OF,FF,8D, 10,FF,F4 
450 DATA 8D,11,FF,AD,12,FF,29,FC,8D,12,F 


F,60,20,F1,22,20,39,20,20,76,22,20,21,23 


460 DATA 22,20,13,23,20,3F „22,20,9B,21,2 
0,61,22,20,8£,21,20,14,21,20,32,23,20,31 
470 DATA BS,20,20,E1,21,20,07,22,EA,EA,E 
A,20,56,23,20,00,23,20,79,22,20,76,23,3E 
480 DATA 20,99,22,AD,42,03,69,12,D0,BD,2 
0,E1,21,40,76,23,49,12,80,42,03,49,6F ,E1 
490 DATA 8D,50,03,60, FF ,FFFF,FF ,FF,FF,F 
FiFF FF ,FF,FFAFF ,FF4FF FF AFF FF ,FF,FF ,2D 
ENDE DES LISTINGS 


x201> 
<127> 
<254> 
<«16> 
«B1> 


<40? 


9 FORA=13056T013063:POKEA,O:NEXTA 
10 TRAP1049 

20 DEFFNPULX)=PEEKtF310-X)-48 

30 FORA=1TO&:H(A)=16-AsHBtA)="D.REINKE": 
NEXTASHI=H<1) 

40 PUDEF*0":LE=3: 5C=0:6010760 

50 VOLB:FORA=1103 

60 VOLB:FORA=1T03 

70 SOUND! ‚685,8: SOUND2,H54,8 

80 SOUND! ‚739, 12: SOUND2,G81 ,12 

96 SOUNDI ‚770,4: SOUND2,897,4 

100 SOUNDI ‚778, 4:SOLUNDZ,711,& 

110 NEXTA: SOUNDI ‚810,40: S5QUND2,917,40 
120 GRAPHIC 0,1 

150 POKE 65302,92:POKE &5303,65 

140 FOKE &5298 „ PEEK (65298) AND 251 
150 POKE 65299 „ PEEK (45299) AND 3 OR 4 
e 

150 POKEHE58,24 . 

170 RESTORE180: FORA=0T019:READBS$: POKEBZZ 
+A,DEC (B$) :NEXTA 

180 DATA A9,60,42,00,9D,00,0C,9D,00,0D,9 
D,00,0E,90,00,0F,CA,DO,F1,60 

190 COLOR 1,3,4:COLOR 0,1:C0LOR 4,1:5Y35 
5432:8Y8 832 


200 PRINT" n-sas4aamn354smmmmann ana I 
an 


210 FOR A = 1 T0 23 

220 PRINT">{HHITE SPAGCE297"4:COLOR1,3,4: 
PRINT"_" 

230 NEXT A 

240 PRINTYNILL/LLLLFFTELTTLFELLETLFFFELT 
n 





3 

250 IFJA=1THENSICSELSECHLORE ,10,7:CHAR1, 
Iy1,PiSPACE} ATSPACEI AISPACEI MTSPACEI SLSP 
ALE+—TSPACE} STSPACEIAHSPACEI ATSPACEIALSP 
AGEI@TSPACEI—-ISPACEY SISPACEFSLSPACEI @" 
266 CHAR1,1,2,"#LSPACEIKISPACEI-ISPACEI 6 
TSRACEI ALSPACEISLSPACEISTSPACEI BSPACE = 
SPACEISTSPAGEI SISPACEI STSPACEIMTSPACEI 
SPACE" 
270 CHAR1,1,3,"{SPACEIASPACEISLSPACEI—C 
SRACEIBISPACEI KISPACEI ATSPACE>I | CSPACE) ML 
SPACEIALSPACEI STISPACEI— SPACES SISPACE) BC 
SPACE} RM" 
280 CHAR1,1,4,"MISPACEI AISPACEISCSPACEI & 
TSPACEF—-ASPACEI HSPACEI-TSPACEI -TSPACEI % 
ISPACEIBTSPACE3 HTSPACEI- SPACE) —- SPACE, & 
TSPAGE>" i 
290 CHAR1 51,5, "TSPACEIMTSPACEI ALSPALEI ML 
SPACEI HTSPACEI BISPACEIBISPACE?-—- SPACE AL 
SPACEI AISPACEF MTSPACEI STSPACEISISPACEH AL 
SPACEI—" 

300 REM ---- ELANK = SHIFT + SFACE ———— 
310 COLOR 1,2,7:CHARI ,32,4,"STORECSHIFTS 
PACEI= "ACHAR1 , 32,5, "3: PRINTUSING "HEHE 
"356 












































Sompube mik 


<144> 
<&3> 


<a97> 
<116> 


<45> 
<234> 


<152> 


<14> 


<133> 


<133> 


<83> 


<171> 


<101> 


<140> 
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320 CHAR1,32,7,"ZEITISHIFTSPACEIS "SCHARL 
„32,10, "00999" 
330 CHAR 1,32,14 , "LEBEN{SHIFTSPACE?IT "CH 
AR1,32,15,"tLEFT SHIFTSPACEI" 
340 B$S=SSTR$ (LE) :L=LEN (B$) -13P$=RIGHT$ (B$ 
„L}EPRINTP$ 
350 CHAR1 ,30,20, "BREAK-QUT"sCHARI ‚30,21, 
"YON"SCHARI , 30,22, "CARSTEN" :CHAR1,32,23, 
"REINKE"” 
3560 IFJA=1THENRETURN 
370 REM #zu2# SPIEL vsrrx 
380 POKE 828,10: POKE 829,10: POKE 830,1:P 
OKE 831,1:PÜOKE 834,0:POKE 835, 10:POKE8SS 
[?} 
’ 
390 POKE 452897 ,PEEK (652897) 0OR1& 
400 RESTORE410: FORA=OTDT:READBı FOKE12544 
+A,B:NEXTA 
410 DATA 255, 252,255, 255,207,255,243,255 
420 BYS 9101 
430 FOKE 2021 ,23:POKE 2022, 1:POKE2023,1: 
POKE2024 ,28 ' 
440 POKE 65287 ,PEEK (45287) AND 239 
450 FOR A=0T07:POKE 12544+A,0:NEXT A 
4580 SENDLR 
470 50=0: ZA=1: FORA=0T06: SCHSC+HFNPU {AI «ZA 
ı ZA=ZA#10: NEXTA 
480 IFPEEK (848) C>11 1 THENLE=LE-13 IFLE>OTH 
EN170 
490 IFPEEK (848)=111THENFOKE 8959,FEEK (88 
58) -4 
500 IFPEEK (8858) >?7ANDLE>OTHEN170 
510 COLOR1,8:CHAR1 ,5,2, "DEIN{SPAGEISCORE 
SPACE} = {SPACEY" = PRINTUSING"RRRHHEH" SC 
520 IFSC<=HITHENCHAR1 ,3,4,"CHHITE RYSOH 
SPACEIBISPACEIRTSPACEIETSPACEIATSPACEIKT 
SPACEI-ISPACEFOTSPACEYULISPACEYIT £SPATEIC- 
IGISPACE AVSOFE YELLOW}? 
530 IFSC>HITHENCHAR1 „Ss@,"CHHITE RYSON E 
LASHON SPACEINTSPACEHETSPACEIITSPACEIELS 
PACEIRLSPACEZIRISPACEHETSPACEIKISPACEIOT 
SPACEIRISPACEYID{ISFACE ELASHOFF RUSOFE Ye 
u 

O VOLB: SQOLNDI ,7397, 10: SDUND2, 881,10 
E. SOLND1 ,770,10: S0UND2,897, io 
560 SOUND1 ‚798, 10: SOUND2, 911,10 
570 SOUND1,810,10:SQUND2,917,10 
580 SOUND1, 779,350: SOLND2,897,30 
590 FORA=1T0&: IFSC>HH (A) THENGOTOAOG: ELSEN 
EXTA:GOTOSAO 
600 FORB=STOASTEP-1:H(B+13=H (B} CH$tB+1)= 
H$(B} z=NEXTB: HS (A)="":HtA)=St 
610 CHAR1,S „8, "DEINTSPACEYNAMETSPACEF: {5 
PACEY?" 
620 FORC=1T08:POKE237,0 
630 SETKEYK$:K=ASC (K$) = IFK>PSLANDK<FETHEN 
650 




















640 GOTOAIO 

650 HS (A) =HS& CA) HK: CHAR1,17,&,H$ (A) =NEXT 
Cr A=5:NEXTA 

660 CHAR1,15,65," "2 PRINT"{DOHNF "SCOLORL,6 
»7:FORA=1TD&ı PRINTTAR (SI 5HS CA), 

&70 PRINTUSING"#EERRHE" EH (A) :PRINT:NEXTA 
&80 COLOR1,5,7:CHARi ,3,21,"BITTEISPACEID 
RUECKETSPACEIEINESPACEITASTE":CALOR1,7, 
7 

&90 POKE 239,0: ZA=1:P$=" {SPACEIITCSPACEI 
DISPACEIPISPACEI-TSPACEISLISPACE} TECSPACEY 


KISPACEZIOTSPACEIFTSPACEZI ER TSPACEIBISP 


ACEFRISPAGEFETSPACEIATSPACEIKSPACEI- SP. 
ATEFUTSPACEIULSFPAGEITTSPACEIRRRCSPACETFF" 
700 CHAR1,15,189,"":POKE 2021,19:POKE 202 
2,8: POKE2023,15:POKE2024 ,15 

710 PRINTMIDFIP$,ZA,1)5: ZA=2A+1: IFZA>LEN 
(P$) THENZA=1 





<140> 
*x147> 
<240> 
<189> 


“212> 
x18> 


<317 
<> 
<148> 
%232> 
<253> 
<a35> 
<ad4> 
s73> 
x181> 
<225> 
<19> 


<214> 
<40> 


<13> 


<97> 


<106> 
<21> 
<94> 
<216> 
«238? 
<176> 
<45> 
<180> 


x120> 
<212> 


<186> 
<208> 


<212> 
<120> 
<32> 


+174> 


4215> 
<148> 


<179> 


programme 


720 GETAS: IFAs< >" "THEN7SO 
730 FORA=1TO100:NEXTA 


740 60T0 710 


750 LE=3:5E6=0: RETURN 

760 JA=1:G05UB 120: JA=0 

770. POKE 2021 ,25:POKE 2022, 1:POKE2023,1: 
POKE2024, 28 

780 COLGRI ,4, 7#PRINT"TCLEARY"STAB(BIS "CD 
GAN>WILLKOMMENLSPACEIZU" 

790 PRINT" IDGHN SPACEZIRAHLSPACEIBISPACE 
IRESPACEIETSPACEIAISPAGEIKISPACEI- {SPACE 
IDESPAGEHITSPACEITISPACEunn" 

809 PRINT" TRONH SPACEYANLEITUNGTSPACEI=T 
SPACE} "SPACE" 

ind PRINT" CDOHN SPACEISANSTtSP. SPACE}SPIEL. 























820 GETKEYA$: IFA$< >CHR$ (32) THEN1010 

830 PRINT" {DOHN SPACEYDASTSPAGEISPIELTSP 
ACEIGEHT {SPACEIUIEBER" 

840 PRINT" {DOHN SPACEISTSPAGCEILEVEL. {SPA 
CEISIETSPACEIHARBENLSPACEIZ" 

850 PRINT" TDIHN SPACE}SCHLAEGERTSPAGE}IZU 
R{SPACE}VERFUEBUNG. 

880 PRINT" DOHM SPAGE}VERSÜCHENTSPACEIST 
EXSPACE}ZUISPACEYVERHIN-" 

870 PRINT" CDOHN : SPACE}DERN, {SPACEIDASSTS. 
PACEIDERTSPACEFBALLISFACEIDEN" S 

880 PRINT”IDEHN S: SPACE}IBODEN {SPACE} BERLEH 
RT. "tBOSUB 1020 

890 PRINT" {DOHN SPACEYTRIFFTESPAC E}DER{S 
PACE }BALL{SPACEIDIETSPACEIMAUER" 

700 PRINT"{DOHN SPACEFKOENNENTSPACEFSIET 
SPACEISTSPACEIPUNKTE" 

710 PRINT"{DOHN SPACE} IHRISPACEHEIGENISR 
ACE}INENNEN, TSPAGEFDURCH" 

920 PRINT" {DOHN SPACEYEINENTSPACE}BONUS- 
PUNKT {SPACEIKASSIEREN" 

930 PRINT"{DOWN SPACEISIETSPACEIWEITERET 
SPACE 1LOO{SPACEIPUNKTE. ":GOSUB 1020 

740 PRINT" <DOHN SPACEIUMTISPACEIINTSPACE> 
DAS{SPACEINAECHSTE," = 

950 PRINT"{DDHN SPÄCEISCHNELLERETSPACEIL 
EVELTSPACEIZU" 

FED PRINT" {DOWN SPACEYGELÄANGEN, TSPACEIMU 
SSTSPACE}DERTSPACEIBALL“ 

770 PRINT"IDOHN SRPACTEIDASTSPACEFIGRUENETS 
PACE}IHERZ{SPACE3 TREFFEN. "+ GOSUB1020 

E0 PRINT" {DOWN SPACEIDRUECKENTSPACEISIE 
SPACE} "RETURN’ {SPACEHUM" 























9709 PRINT"IDGHN SPACE} ZUtSPACEISPIELENIS, 





PACEI! NT" 

1000 BETKEYAS: IFAS<>CHRE (13) THENLO0O 
1010 GGSUBSO: GOTO76O 

1020 PRINT“ {DOHN SPACEIDRUECKENTSPACEIST 
E{SPACEIEINE {SPACEFTASTE" 

1030 GETKEY A$:PRINT"{YR SPACE2F UP2+":R 
ETURN 

1040 POKE 45297 „PEEK (45287) AND237 

1050 POKE 65298,196: POKE452979 ,208 

1040 COLORO,2:COLOR1,1:C0LOR4, 15,6: PRINT 
10706 SY955432: PRINTERR$ (ER) 5 " {SPÄCEIERRD 
RISPACEYIN"ELB 

1080 HELP 


<114> 
x204> 
<a8> 
x47> 
2077 
x149> 


43? 


<245> 
237? 


<134> 
x56> 


<173> 
$71> 
<a8> 
<163> 
<104> 
<1397> 
%217> 
<204> 
»21> 
<1532> 
<131> 
<130> 
x54> 
x255> 
<171> 
<79> 
<192> 
<205> 
<8537 
x34> 
»201> 
<155> 
<113> 
<34> 


x181> 
+38> 


Aufgrund der Bauanleitung einer Speicher- 
erweiterung ist der Programmteil beim 


C-16/116 diesmal nicht so umfangreich wie 


gewohnt. Wir bitten um Verständnis! 


Compube mi 








kurs 


6502-Assembler-Kurs 


Teil 14 


sm -5$ ACCUMULATOR IN MEMORY Speichere Akkumulator in Speicha 





Dies ist das Gegenstück zum LDA-Befehl. Er speichert den Inhalt des Akkumulators an einer bestimmten Speicherstelle ab. Wir ha- 
ben diesen Befehl schon mehrmals in unseren Beispielen verwendet; da er sicherlich neben LDA der wichtigste Befehl des 6502 ist. 
Er bietet die gleichen Speicher-Adressierungsmöglichkeiten wie der ADC-Befehl mit der Ausnahme, daß eine unmittelbare Adres- 
sier-Möglichkeit nicht vorhanden ist. 


Hex Adressierung Bytes Syntax 

81 _Indirekt, vor-indiziert mit X 2 STA (addr),x 

85 Nuli-Seite (direkt) 2 STA addr 

89 Nicht verwendet 

8D Absolut (direkt) 3 STA addr 

g Indirekt, nach indiziert mit Y 2 STA (addr),y 

95 Null-Seite indiziert mit X 2 .STA addr,x 76543210 
99 Absolut indiziert mit Y 3 STA addr,y N VBDIZC 
9D Absolut indiziert mit X 3 STA addrx nicht beinflußt 


m 00 
STX - Store Index Register X in Memory (Speichere X-Register in Speicher) 


Auch diesen Befehl haben wir schon häufiger in unseren Beispielen angewandt. Er stellt das Gegenstück zu LDX.da, und arbeitet so- 
mit genauso wie STA, mit dem Unterschied, daß hier das X-Register im Speicher abgelegt wird. 

Beachten Sie, daß es hier keine indizierten Adressier-Arten unter Verwendung des Indexregisters X gibt. Es gibt auch keine absolute 
indizierte Adressierung. STX und LDX sind die einzigen Befehle, die die indizierte Nullseiten-Adressierung mit Indexregister Y ver- 


wendet. Auch hier werden keine Status-Bits beeinflußt, 


"Hex Adressierung Bytes Syntax 
86 Null-Seite (direkt) 2 STX addr 
BE Absolut (direkt) 3 STX addr 76543210 
96 Null Seite indiziert mit Y 2 STX addıy N VBDIZC 
9E Nicht verwendet nicht beinflußt 


MM 





STY - Store Index Register Y in Memory (Speichere Indexregister Y in den $pgicher) 


Dieser Befehl dient ebenfalls zum Ablegen eines Registers. Er benutzt die gleichen Ad ressierungsmöglichkeiten wie der STX-Befehl, 
legt jedoch den Inhalt des Y-Registers im Speicher ab. Die Status-Flags werden auch hier nicht beeinflußt. 


Hex Adressierung Bytes Syntax 

84 Null-Seite (direkt) 2 STY addr 

8C Absolut (direkt) 3 STY addr 76543210 
94 Null Seite indiziert mit X 2 STY addrx N VBBILZC 
9C Nicht verwendet TEE 





Compute mib 


richt beinflußt 
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- 6502 Programmierung in Assembler, Data-Becker Buch J. Butterfield, Hanser-Verlag 


kurs 
TAX Transfer Accumulater to Index-Renisier X (Übertrage Inhalt van Akku nach X-Register) 


Neben den bekannten Registern „LADEBEFEHLEN“ gibt es beim 6502, sowie beim 6510 noch die sogenannten Transfer-Anweisun- 
gen. Diese veranlassen den Prozessor, den Inhalt eines Registers in ein anderes zu übertragen. Das Ursprungsregister wird dadurch 
nicht beeinflußt. Der TAX-Befehl überträgt den Inhalt des Akkumulators in das X-Register. Transfer-Befehle haben den Vorteil, daß 
diese keinen Operanten benötigen und dadurch nur 1 Byte belegen. Auch die Ausführungsgeschwindigkeit der Befehle macht sich 
der geschulte Programmierer oft zu Nutze. In der Praxis werden Transfer-Befehle häufig verwandt um ein Register zwischenzuspei- 
chern, vorallem wird hier der Akkumulator gerettet, da er als einziger Aritimetische Operationen durchführen kann. 


| 76543210 
Hex  Adressierung Bytes Syntax | N VBDIZC 
AA Impliziert 1 TAX x K 





TAY Transfer Accumulater to Index-Register Y fÜbertrage Akkumulator in Y-Register} 
Dieser Befehl arbeitet auf die gleich Weise wie der TAX-Befehl, jedoch wird hier als Ziel das Y-Register verwendet. 


7654 
BE ONE mer we ze 
AB impliziert 1 TAY X x 





TSX Transfer Stackpeinter to Index Register X fühertrage Stackzeiger in X-Register) 


Auch für den Stackpointer gibt es einen Transfer Befehl. Dieser überträgt den Zeiger, welcher auf den Stack zeigt, in das X-Register. 
Dadurch läßt sich durch die indizierte Adressierung direkt auf den Stack zugreifen. Die Programmiertechnik sollte jedoch nur von et- 
was erfahreneren Programmierern genutzt werden, da falsche Stackmanipulationen schnell zum Systemabsturz führen können. 


| | 76543210 
BEE AED en an se her, SS 5 N VBDIZC 
BA Impliziert 1 TSX X x 








TXA Transter Index-Register_ X to Accumulatar {übertrage X-Register in Akkumulator) 


Natürlich besitzt der Prozessor auch Transfer-Befehle in umgekehrter Richtung. Der TXA-Befehl überträgt den Inhalt des X-Register's 
in den Akkumulator. i 


Hex Adressierung Bytes Syntax 
8A Impliziert u TXA 


76543210 
N VBDIZC 
X x 





TX$ Transfer Index-Register X to Stackpointer (Ühertrage X-Register in Stackzeiger) 


Genauso ist die Umkehrung für TSX möglich. Der TXS-Befehl lädt den Stackpointer mit dem inhalt des X-Registers. Dadurch lassen 
sich beispielsweise Rücksprungadressen manipulieren oder löschen. Auch dieser Befehl sollte mit Vorsicht verwendet werden. 





76543210 
s B 76543210 
Hex un 3ytes Syntax N VBDIZC 
BE 1 MS nicht beeinflußt 
Literatur: er 
ı I —— Lance A. Leventhal - 6502/65002, Christian Persson, 
- 6502 Microcomputer-Programmierung, | - 64 Intern, Angershausen, Heinz Heise Verlag 
Peter Heuer, Hofacker Verlag Becker, Englisch, Gerits, - Butterfield’s Lehrbuch, 
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4% 

















Hold: 






Eine Besonderheit stellt die gute Grafik | RiSk I: 


dieses Programmes dar. Dem Autor ist 
hier eine quite Version des Pokerspielens 
geglückt. 


EERFRHHR RENNER HIER II NINE ER 


10 REM 

15 REM #* SCHNEIDER CPE 464 *% 
29, BEIM Wer mn anne mn nn ee nn *% 
25 REM ##* FOKER (plus) ## 
>09, REM Ei —— nn ram er 
355 REM #* Written by: #*%* 
40 REM #** “* 
45 REM *# Serge Hommel *%* 
So REM **. 19,rte.de Wiliwerdange *##* 
55 REM ##+ 9952 Drinklänge Lu 
60 REM ## i BE 
65 REM #%* G.D. LUXEMBOURG 23 
70. REM Emm m mn een Dr 
75 REM #* Tel.s 100352) 798701 ; “r 
80 REM HRSHSHAHHSHSHBHHER NIEREN IN 


100 ” 

110 REM RUHE 
120 REM #* Titelbild — Titelmelodie #*# 
130 REM HEINE EEE RE 
140 BORDER GreINK 0,0: INK 4,2: INK 5,241 IN 
K 6,6:INK 7,7:INK 8,13: INK 9,9:MODE © 
150 PEN 7:PRINT" HOMULLUS — SÜFTWARE"SLOC 
ATE 7,3:PRINT"presents":LOCATE 5,23: FEN 
8:PRINT"published by",,"’COMPUTE M 


GSompube mi 


4 W Einsatz im Bereich von 1-50 verändern 
@ Karten werden ausgegeben 
® 4 zum Steuern des Balkens 
4 V Karte wird gesetzt bzw. wieder freigegeben 
@ freie Karten werden ersetzt 
© führt zurück zu 'Bet' 
GEWINN: @ Gewinn wird I-mal ausgegeben 
» «führt zu Risiko 1 bzw. Risiko 2 
> 4 wählt die Farbe; bei entsprechender Farbe der Zufallskarte wird 
der Gewinn 2mal ausgegeben, wenn nicht, geht er verloren 
«1% steuert den Balken unter die gewünschte Farbe 
@ zieht eine Karte; bei richtiger Wahl wird der Gewinn Amal ausge- 
geben, ansonsten geht. er verloren 


mit dem Schneider GPG 464/664 und 6128 


In fast jedem Western oder Kriminalfilm hat dieses Spiel seinen fe- 
Sten Platz und erfreut sich großer Beliebtheit, spannungsgeladene 
Szenen zu untermauern. Pokern gehört einfach dazu, wenn es dar- 
um geht, Nervenkitzel zu erzeugen. 


Dieses Nervenkitzeln können Sie nun zusammen mit anderen Mit- 
spielern oder aber allein mit Ihrem Computer erleben. Poker macht 
aus Ihrer „Hackerstube“ eine „Spielhölle“. 


. Gespielt wird Poker ausschließlich mit dem Joystick oder den Cur- 


sortasten. Joystick nach oben und unten oder Gursor nach oben 
und unten wählt aus, ob man mit 52 oder mit 32 Karten spielt. Bei 
52 Karten werden generell die Gewinne verdoppelt 


Das bedeuten die Copy- und die Cursortasten: 















I T”3 
160 PEN &:LOEATE 9,19sPRINT STRING$(4,14 
3):PEN 5:LOCATE 9,20: PRINT STRINGS (4,143 
)sPEN 4: LOCATE 9,213PRINT STRING$ (4,145) 
1709 ENT 1,1,-120,1,1,120,1 

180 RESTORE 1F70:FOR t=1 TOD 44:READ ton:S 
OUND 1,ton,15,15,,13NEXT 

190 DATA 169,179,169,159,169,179,169,213 
„169,179,169,142,169,179,169,213,169,179 
„167,142,169,179,169,126,169,179,169,142 
,169,179,169,213,169,179,169,213,169,179 
„169,142,169,179,169,213 
200 FÜR i=1 TO 500: NEXT 
210 FOR i>=1 TO 313INK 1,i 
220 PLOT 140,130:DRAW 140,330: DRAW 500,3 
30:DRAW 500,2704DRAW 160,270:DRAW 150,153 
DO:DRAW 140,1530:MOVE 160,290:DRAW 160,310 
sDRAW 480,310:DRAW 480,290: DRAW 160,290: 
MOVE 200,130:DRAW 200,210:DRAW 2650,210:D 
RAW 240,130: DRAW 200,130:MOVE 220,150 
7350 DRAW 220,170:DRAW 240,190r:DRAW 240,1 
50: DRAW 220,150:MOVE 2850,130:DRAW 280,25 
O: DRAW 300,250: DRAW 300,170>:DRAW 340,210 
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DRAW 340,190: DRAW 320,170:DRAW 340,150: 
DRAW 340,130:DRAW 310,140: DRAW 300,150:D 
RAW 300,130: DRAW 280,130:MOVE 360,130 
240 DRAW 360,210: DRAW 420,210:DRAW 420,1 
70:3DRAW 380,170s5DRAW 380,150: DRAW 420,15 
O:DRAW 420,130:DRAW 360, 130:MOVE 380,180 
ı DRAW 380,200: DRAW 400,200:DRAW 400,180: 
DRAW 380,180: MOVE 440,130:DRAW 440,210:D 
RAW 460,210: DRAW 460,190: DRAW 500,210 
250 DRAW 500,190: DRAW 440,170: DRAW 440,1 
Z03DRAW 440, 1303 PEN 1s1L0CATE 13,10:PRINT 
"PLUS"LLOCGATE 17,53 PRINT CHR$ (44) 

260 FOR y=3 10 14 STEP 2:50UND 1,1y#i},3 
„ASsNEXTSNEXTEFOR i=1 TO 1500: NEXT 

27TO REM RUHHUR EEE Hr 

280 REM ** Symboldefinition #*# 


290 REM KUREN 


300 SYMBOL. AFTER 1592:RESTORE 310:FOR i=t1 
&0 TO 238:READ a,b,c,d,8,f,9,h:SYMENL is 
a,b,c,d,8,f,Q,n3NEXT i 
310 DATA 204,204,51,51,204,204,51,51,16, 
56,124,254,254,16, 56, ,,108,254,254, 254,1 
24,56,16,56,56,16,214,254,214,16,56,16,3 
6,124,254,124, 56, 16, yo 9990 1173431316, 16,5 
6,124,255, 255, 43593,,128,15,31,63,63,65, 
31, 7,3,224 ,240 ,248,248,248,240,1972,128 
320 DATA 1, 40,1,34,,255,214,16,56, 255,25 
Senn nn4r 129,000 357515, 31, 31568, , 181,1 
99.239.239 255,255, ,,,128,224,240, 240,24 
8,31,314,154 7,1454, 295,255, 255, 255,259, 25 
4,254 ,124 ,240 ,240 ,224 ,192, ,3,,124,56,56, 
16,16, 4243, 24,60, 126, 255,255, 126,6,15 
330 DATA 31,63,63,31,15,6,60,24,153,255, 
255;153,24,24,96,240, 248,252, 252,248, 240 
7629932015, ,60,60,60,126, 259,299, pn, 16 
„16,56,56,124,254,1,3,15,63,15,3,1,,2595, 
255,255, 255,255, 255,259,254, „128,224 ,248 
224,120, ,,8,28,62,127,127,8,28,,,54 
340 DATA 127,127,127,62,28,8,29,28,9,107 
»127,107,8,28,8,28,62,127,62,28,8, ,,121, 
59,31,15,11,8,15,,195, 231,255, 255,102, ,2 


. 55, ,159,220,249,240,208,1&,240,15,8,41,7 
 4,87,40,8,40, 255, ,153,219,153,24,24 ,66,2 


40,164,148,210,154,20,16,20,74,82, 36,1 

350 DATA 24,60,126,223,60,129,153,24,36, 
,,129,82,74,36,128,24,60,126,251,143,199 
‚163,161,176,176,160,172,255,255,255,255 
„126,24,24,126,241,227,197,133,13,13,21, 
53,172,170,234,234,235, 251 ,251,251,90,12 
6,126,90,126,,,,117,85,87,215, 215,223 

360 DATA 223,223,7,15,31,31,31,30,60,59, 
255,255,223,143,741,,28,128,192,224,224, 
240,240,240,112,56,124,116,244,244 ,244 ,2 
46,242,64,64,64,96,80,,136,113,120,124,1 
26,126,126,111,111,199,242,242,227,224,2 
36,223,233,18,3,6, 24,244 ,,195, 255,255 

370 DATA 7,7,7,7,51,251,251,75,36,72,127 


„143,135, 135,199 ,255,153,153,165, 255,66,‘ 
126,68,124,36, 18,254 , 241 ,225,225,227,255: 


‚255, 251,245, 251,245, 234 ,245,234,100,60, 
36,189,173,185,169, 185,255, 223,175,223,1 
75,87,175,87,,,135,255,73,41,38,16,,124 
380 DATA 255,131,69,69,56,,,,174,254,36, 
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40,200,16,17,15,8,19,20,19,48,32,255,139 
‚10,10,136,10,12,8,16,224,160,160,128,1& 


0,192,129,64,224,32,120,112,64,113,31,12 


„4,29,21 Pi 101 4 194, +208,80,80,80,64,80, 
32,2,63,127,145,245,253, 255,124, „7,255 
390 DATA 253,85,85,223,249, „224,240,120, 
126, 253,248,240,62,31,143,207,39,227,17,° 
240,3,7,143,143,223, 254, 252, 248, 224,195, 
140,159,32,63,64, 127 

400 FOR i=1 TO SO: PRINT: NEXT 

410 REM RB R EEE 

420 REM #* Bildschirmaufbau ## 

330 REM KERNUNERENEFEFUIEEHHEN 

449 as=65:ı te$="10":hs$=STRING$ (3,145) +CH 
R$ (128) +STRING$ (3,143) ah$="H 0 L D":hd$= 
9” “ 


450 DATA Royal flush,250,Straight Flush, 
150,Four af a kind,75,Full house,40,Flus 

h,20,Straight ,‚8,Three of a kind,3,Two pa 
irssil 

460 RESTORE 450:FOR i=1 TO B:READ typ#(i 
I smti)s NEXT 

470 MODE 15INK 1,23: INK 2,6: INK 3,135:PEN 
1:5c=100:bet=1:DIM contr (54):BIM #(15 

480 FEN 1:LBCATE 5,10:PRINT CHRF$ (240735 ": 
As-k-D-B-10-97-8-7-4-5-4-3-2":LOCATE 5,1 
Z2EPRINT CHR$(241)53"s As-K-D-B-10-9-8-7" 

490 IF JOY<cO)=1 OR INKEY(OQ)=0 THEN RAM=i 
sg=2:G0T0 520 

so0 IF JOY(O)=2 DR INKEY(2)=0 THEN RAM=& 


'29=1160T0 520 


510 6010 490 
520 CLS:WINDOW#&,1,37, 11,21: PAPER#A 3:CL 
S#&: WINDOW#7,2,38,24 ‚242 PEN#7, 12 C1L5#7 
530 PEN S:PRINT CHR$(150)STRING$ (21,158) 
CHRS (156) SPACE$ (3) CHR$ (150) STRINGS (11,15 
A) CHR$ (156) „CHR$ (149) SPACES (21 ICHRS (147) 
33PEN 2:PRINT CHR$ (150) CHRS (ASS) CHRFLISS 
I5:PEN SsPRINT CHRS(149 SPACESTLIICHRS (I 
49) 

540 PRINT CHR$ (149) SPACES (21) CHRS 149) 5: 
PEN 23 PRINT, CHR$ (149) "P"CHR$ (149) 3 4PEN 3 
SPRINT CHR$C151) STRING$ (11,154) CHR$ (157) 
„CHR$ (147) SPACE$S (ZU) CHRS (149) 43 PEN 2:PRI 
NT CHRS (149) "O"CHRS(149) 5 PEN S2PRINT CH 
R£1149) SPACE$SC11IEHR$S (149) 

550 PRINT CHR$ (149) SPACE$ (21) CHR$ (149) 35: 
PEN 24PRINT CHR$ (149) "K"CHR$ (149) 5: PEN 3 
sPRINT CHR$ (147) STRING$ 111,154) CHR# (1553) 
„CHRS$ (149) SPACESTZIICHRF (149) 3:PEN Z:PRI 
NT CHR$ (149) "E"CHR$(I4MSPACES (ZI HSPEN 3 
sPRINT CHR$ (150) 5 

560 PRINT STRING$ (7,154) CHR$ (156) „CHR$ (1 
49) SPACE$S Z1LICHREI149)4:PEN 2:PRINT CHR$ 
1A) "RICHRSLLAPM SPACES (ZI HS :PEN 3+ PRINT 
CHR$ (149) SPACE$ (TI CHR$ (149) „CHRS 1A9) SPA 
CE$(Z1)CHR$(149)5:PEN Z3PRINT CHR$(147IC 
HR$ (154) CHR$ (153) SPACES(2) 35 

5790 PEN 3:PRINT CHR$ (1513 STRING$ (7,159) C 
HR$ (157) „CHR$ (149) SPACES (21 I) CHR$ (149) SPA 
CE$ (5) CHR$ (149) SPACES$ (TICHR$ (149) „CHRS(1 
ATI STRING$ (21 , 154) CHR$ (153) SPACE$ (5) CHR$ 
(147) STRING$ (7,154) CHR$ (153) 


4 
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580 LOCATE 1,23:PRINT CHR$ (150) STRINGS (3 
7,154) CHR$ (156) „CHR$ (149) SPACE$ (37) CHRS$ ( 
149) „CHR$& (147) STRINGS (37 , 154 I CHRS (IST) 5: 

FOR i=1 TO B:LDOCATE 2,i+1:PRINT typ$(i): 

LOCSTE 17 ,i+1 5: PRINT”s "NEXT 

530 PEN 2:LOCATE 28,23PRINT" SCORE" 
:LOCATE 30,73PRINT" BE T " 

&00 PEN 1:LOCATE 30,4:PRINT USING "Hill 

#"ssc:LOCATE 33,75 PRINT USING "##"3bet 
610 WINDOW#1 ,1,7,12,20:WINDOW#2,9,15,12, 

20: WINDOW#3,17,23,12,20:WINDOW#4,25,531,1 
2,20: WINDOW#5,53,39,12,20 

620 REM HERREN 

6830 REM #* Steuerprogramm #*% 

540 REM HERREN ENIREHENEERER 

650 FOR i=1 TOD 54:contr (i)=0O:NEXT:FOR i= 
i TO 5eholdt{i)=O:NEXT:hold=01ıF0OR i=1 TO 
33 STEP B=LOCATE i,22:FRINT hd$: NEXT: ECLS 
#7 

a0 FOR i=-1 TO 5:PAPER#i „1:2PEN#i „S: SOUND 
2,240,10,135,0,0,1:CLS#i = FRINT#i „STRING$ 

63,127) 5 3 NEXT 
670 GOSUB 710 
680 FOR w=1 TO 5 
&90 IF hold{w)=1 THEN 7860 
700 RANDONIZE TIME 
710 ra=INT (RND (4) #5} 

720 IF rafi OR ra>4. THEN GOTO 710 

730 ran»=INT {RND (63 #14) 

740 IF ranfram OR ran?>13 THEN GOTO 730 
750 IF contr (ran#sra)=1 THEN GOTO 719 

760 GOSUB 2270 

770 contr (rantra)=1 

780 NEXT 

799 IF hold=1 THEN 820 

800 GOSUB 1090 

Bio IF hald=1 THEN 480 

820 GOSUB 1280 

830 GOSUB 1540 

840 IF sc=0 THEN FOR i=1 TO 3000:NEXTıGO 
TO 2780 

850 CLS5#7:PEN#7 ,1:50UND 1,1200,30,15:L0C 
ATE #7,15,15PRINT#7,"NEXT TURN" 

. 860 IF JOY(O)<>1& AND INKEY(F})=-1 THEN 8 

&0 
870 IF JOY(O)=15 OR INKEY(Y)=0O THEN 850 
880 REM HH 
890 REM #* Einsatz #* 

900 REM Herner 
710 PEN#7,1:LDCATE#7,15,1:1PRINT#7,"B E 
h T" 

920 IF bet>=sc THEN bet=scrsc=0;FOR i-1 
TO 10:50UND 1,40,10,15:SOUND 1,30,5,15:N 
EXT:G60TO 1040 
950 sc=sc-bet:GOTO 1040 
740 PEN 1:LOCATE 33,9: PRINT USING "##":b 
et:LOCATE 30,4:PRINT USING "HH" sc 
950 PEN 3:sFOR i=1 TO 8:LOCATE 18,i1+1:PRI 
NT USING "HHHR#"3K li) aNEXT 
F40 IF JOY(OGO)=1& OR INKEY{?)=-0 THEN RETU 
RN 
770 IF bet>=50 OR sc=0 THEN GOTO 770 
980 IF JOY(O)=1 OR INKEY(tO)=0 THEN bet=b 


48 
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et+1:sc=sc-1:50UND 1,(1040-bet#10) ,10,15 
:50T0 1040 
790 IF bet<s=1 THEN GOTA 940 
1000 IF JOYtÖO)=2 OR INKEY—(Z)=0 THEN bet= 
bet-irsc=sc+1:SOUND 1,(1040-het#=10) ,10,1 
SıGOTO 1040 
1010 IF JOYto)<>1 AND JOYiO)<>2 OR INKEY 
SO) +INKEY {Z2)=-2 THEN GOTO 740 
1020 IF het >50 THEN bet=S0 
10309 IF bet <1 THEN het=1 
1040 FOR i=1 TO Bıkti)=wli)sbetrg: NEXT 
1050 GOTO 740 
10580 REM Marne 
1070 REM ** Karten halten ## 
1090 REM HH HEHE 
1990 CLS5#7:PENS7 ,1:PRINT#7," 

H0O0 L D":sl=i:hold=-i 
1100 IF JUüY(O)=1& OR INKEYEM=O THEN 117 
o 
1110 PEN#6,0:LOCATE#6,1,11: PRINT#4 ,hs$3 
1120 IF 1>25 THEN 1=33:G0T0 1140 
1130 IF JOY(O3=8 OR INKEY{1}=0 THEN FOR 
f=1 TO 100:NEXT:SQUND 1,100,3,15: LOCATER 
&,1,11:FPRINT#5,hd$; ı 1=1+8:6G0T0 1110 
1140 IF i<8 THEN 1=1:G0T0 1180 
1150 IF JOY<öo)=4 OR INKEY(BA)=0 THEN FÜR 
f=-1 TO 100:NEXT:SDUND 1,100,3,153LUCATE# 
&6,1,11:PRINT#5,hd$; 1 1=1-8:G0T0 1110 
11&0 IF JOY(O@)=1 OR INKEY{IO)=O THEN FEN 
2:SODUND 1,200, 10,153 LOCATE 1,22:PRINT h$ 
shaldi<1+7)/8)=1 
117090 IF JOY<0)=2 DR INKEY(2)=0 THEN LOCA 
TE 1,22:S0OUND 1,400,10,15:PRINT hd$:hold 
({1+MTI1/D=0 
{180 GOTD 1100 
1190 LOCATE#5,1,11: PRINT#5,hd$; 
1200 GOSUB 1220 
1210 RETURN 
1220 FOR i=1 TO S:IF hold(i)=0 THEN PEN# 
i,3:CLS#i: SOUND 2,240,10,13,0,0,13PRINT# 
i,STRING$ (43,127) 5 
1230 NEXT 
1240 RETURN | 
1250 REM Mann N 
1240 REM ## Auswertung #%* 
1270 REM Hess 
1289 aa=saa(1l)sabsaa (Z)sacsaa (I) rad=aat4) 
sae=aa (5) ıba=bb (1) sbbebb (2) ebcosbb (3) ıbd> 
bb iA) :be=bb (5) :sasastabractadtaeı: maa=MAX 
{aa,ab,atc,ad,ae) mia=MIN(as,ab,ac,ad,ae) 
1290 IF ba=bb AND bb=bc AND be=bd AND bd 


=be THEN GOTD 1400 


1300 IF (aa=ab AND ab=ac AND ac=ad) OR ( 
aa=sab AND ab=ac AND ac=ae) OR (aasab AND 
ab=ad AND ad=ae) OR (aa=sac AND ac=ad AN 
D ad=sae) OR (ab=zac AND ac=ad AND ad=ae) 
THEN typ=3:60T0 1430 . 

1310 IF (aa=ab AND ac=ad AND ad=ae) OR ( 
aa=zac AND ab=ad AND ad=sae} OR (aa=sad AND 
ab=ac AND ac=aer) OR (aasae AND ab=ac AN 
D ac=-ad) OR (as=ac AND aczae AND ah=ad) 
ÜR (aa=sac AND ac=ad AND ab=ae) THEN typ= 
4:GOTDO: 1450 


7/86 








7/86 


1320 IF (ab=ac AND as=ad AND ad=ae) OR { 

aa=ah AND ab=ae AND aczad) OR (aasab AND 
ab=ad AND ac=ae} OR (aa-ab AND ab=ac AN 

D ad=ae) THEN typ=-A:60T0 1430 

13350 IF taa=ab AND (ab=ac OR ahb=ad OR ab 

=ae)) OR (aa=sac AND (acsad OR ac=ae)) OR 
{(ad=ae AND (ad=aa OR adsab OR ad=sac)) O 

R lab=ac AND (ac=ad OR ac=ae)) THEN typ= 

7:G0T0 1430 

1340 IF aa$> ab AND aa“f>ac AND aas>ad AN 

D as<>ae THEN GOTO 1360 

1350 IF (aa=sab AND (ac=ad OR ac=ae OR ad 

=ae)) OR (aa=sac AND (ab=ad OR ab=ae OR a 

d=ae}) OR laasad AND (ab=ac OR ab=ae OR 

ac=ae)) OR (aa=ae AND (ab=ac OR ab=zad OR 
ac=ad)) THEN typ=8:G0T0 1450 

1340 IF lab=ac AND ad=ae) OR (ab=ad AND 

ac=aer) OR fab=ae AND ac=ad) THEN typ=8:6 

TO 1430 

13709. IF aasab DR aa=ac OR aamad OR aa=ae 
GR ab=ac OR ab=ad OR ab=ae OR acsad OR 

ac=ae OR ad=sae OR (maa-mia)<>4 THEN GOTO 
1390 " 

1380 IF sa>10 AND saX40 AND (sa/5-INT (sa 

/S}=0 THEN typ=ö 

1370 GOTO 1430 

14060 IF sa=55 AND maa-mia=4 THEN typ=1:6 

0OTO 1430 

1410 IF sa>1O AND sa<55 AND safS-INT (sa/ 

S)=0 AND maa-mia=4 THEN typ=2:60T70 1439 
1420 typ=F3 

1450 IF typ=0 THEN 1500 

1440 RESTORE 1450:FOR t=i1 TO 12:READ ton 
:SQUND 1,t0n,10,15zNEXT ” 
1450 DATA 258,225,1,225,1,253, 225,201 ,22 

5,2535,225,225 

1460 as=typ$s(typ?. 

1470 win=k (typ) 

1480 PEN Z3LOCATE 2, ttyp+1):PRINT a$:LGC 

ATE 18,typ+15FRINT USING "HH" swin 
1470 GOSUB 1720 

1500 RETURN 

1510 REM Verne 

1520 REM ** Gewinn ausgeben ##* 

1550 REM FUHREN KRUSE 

1540 IF tim=0 THEN GOTO 1670 

1550 IF tim=1 THEN GOTR 1580 

15540 DATA 478,15, ,59,359,10, ,20,358,20,,3 
s501 ,10, ,20,301 ,20, ,5,2397,353,,10,301,40 
1570 RESTORE i560: FÜR y=i TO 13:READ i,l 
sSOUND 1,1,1,15:NEXT 

1580 PEN 2:LOCATE 18,typ*+1:PRINT USING " 

Kuh" swinzsLOCATE 17,1=3PRINT USING "#"st 

imsFüR i=-1 TO 1250:NEXT 

1590 ti=tim-i 

1600 FOR y=1 TO tim 

1510 wi=win 

1620 FOR p=1 TO 100:NEXT 

15530 FOR i=bet TO wi STEP bet 

16540 wi=wi-bet:sc=sc+bet:S0UND 1,45,3,15 
1550 PEN ZELOCATE IA,typ+1:PRINT USING " 

HE" swiss LOCATE 17,1:PRINT USING "#"sti 
sPEN 1:LOCATE 30,43 PRINT USING "ABA" 5 


programme 


sc 
1640 NEXTıti=timi1:NEXT 

1670 PEN 3:LOCATE 2,typ+1:PRINT as; 

1680 IF typ=0 THEN 1700 

1690 LOCATE i8,typ*+1:5PRINT USING "#49" 
skityp} ö 

1790 LOCGATE 17,1:PRINT CHR$ (154) 5; : tim=0: 

typ=03 & 027} 

17109 RETURN 

1729 rr=0: CLS#7s PEN#7 „1: PRINT#7,"Take Wi 

n {X), Double "CHR$(242)" or Quadruple " 

CHR$ (243) 5 

1730 IF JOY{O)<4 AND INKEY{iA)I<S>O AND INK 

EYt11<>0 AND INKEY(F)<}0 THEN 1730 

1740 IF JOY(O)=16 OR INKEYMN=0O THEN tim 

=1:60SUB 1540: G0TO 1780 

1750 IF JOY(O)=4 OR INKEY(BI=O THEN rr=2 
:GOTD 1770 

1750 IF JOYtO)=8 OR INKEY(1)=0 THEN rr=4 
:GOTO 1770 

1770 GOSUB 18206 

1780 RETURN 

1790 REM tur 

18500 REM #* Risiko ##* 

1810 REM kerusunenan 

1820 CL5#45: DI 5#3: PEN#3,3:SQOUND 2,240,10, 
13,0,9,1 sPRINT#3,STRING$ (635,127); 

1950 FOR i=1 TO 335 STEP 8:LOCATE i,22:PR 
INT has: NEXT 

1840 RESTORE 1850:FOR i=1 TO 7:READ t,1: 

SOUND 1,t,1,15:NEXT 

1859 DATA 6358,10, ,20,559,15,539,639,30,,2 
‚758,60 

1840 IF rr=2 THEN 60SUB 1720 

1870 IF rr=4 THEN GOSUB 2030 

1890 RETURN 

1890 REM ran 

1900 REM ##= Risiko I ## 

1910 REM Meran 

1920 CL5#7:PEN#7 „2:PRINT#?7,” 

RISK I” 

1930 CLS5#2: PEN#2,0:PRINT#2 ,5TRING$ (43,14 

3) 3 1CL5#4: PEN#4 „2: PRINT#4 ,STRING$ (43,143 
33 5 

1940 IF (JDY(O)<4 OR JOY(O)>9) AND INKEY 
(B)<>0 AND INKEY(1)<>O THEN 1940 

1950 IF JOY{Oo)=4 OR INKEY{BI=0 THEN rp=O 
sGOTO 1970 

19750 IF JOY(O)=8 OR INKEY(1)=-0 THEN rp=2 
sGOTO 1970 

1970 GOSUB 2210 

ı780 IF rp=p THEN tim=2 ELSE tim=0:win=ü 
sFOR i=80 TO 1500 STEP 40:50UND 1,1,5,15 
sNEXT E 

1770 RETURN 

2000 REM WHHHHHHBHREHE 

2010 REM #* Risiko II #* 

2020 REM HH 

2030 CLS#7=:PEN#7,Z2ıPRINT#?," 

RISK Il"sas=128 

20940 ran=13:ra=0: FOR weil TO Ssrasra+tl:0N 
w GOSUB- 2270 ,2279,2170,2270 , 2270: NEXT 
2050 PEN 2:1=17ırb=3: as=65 


Compube mib 
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20580 IF JOYtO)=1& OR INKEY(N=0O THEN GOT 
0 21309 

2070 LOGCATE 1,22:5PRINT hs$ 

20980 IF 1>25 THEN 1=-33:60T0 2100 

2090 IF JOYtO)=RB DR INKEYIL}=0 THEN FOR 
f=1 TO 100:NEXT:3LOCATE 1,22:PRINT hdszsl 
=1+8:rberb+1:GOTO 2040 

2100 IF 1<8 THEN 1=1:G6G0T0 2050 

2110 IF JOYio}=4 OR INKEYISI=SO THEN FÜR 
=1 TO 100: NEXT:LOCATE 1,22:PRINT hdsz sl 
=1-8:rb=erb-1:G0UTD 2060 

2120 GOTG 2040 

2130 IF 1=17 THWEN 2040 

2140 IF rb>3 THEN rb=erb-1 

2150 GOSUB 2210 

2160 IF rb=bb (FI THEN tim=4 ELSE tim=Orwi 
n=0:FOR i=80 TO 1500 STEF 409:SQUND 1,1,5 
‚155 NEXT: RETURN 

2170 ra=sra-1:RETURN 

2180 REM HH RRRHIHHRIHBIHÄHIEI HIERHIN 

'2190 REM ## Karten auswaehlen ## 

2200 REM HRHHIRHRSIERRHHHHHIISIRRIHIHINHIEN 

2210 RANDEMIZE TIME 

2220 ra=INT (RND (4) #5) 

2230 IF ra<i OR ra>4 THEN GOTG 2220 
2240 ran=INT ({RND 4) #14) 

2250 IF ran{iram OR ran>13 THEN GOTO 2240 
2260 w=3:505SUB 2270: RETURN 

2270 bb (w) =ra: aa (w) sran: s=1A0+bb (nl :z=1ß 
9+bb (w} 

2290 IF tbb (w}/23-INT ht (w} /2)=0 THEN p= 
2 ELSE p=0 

2290 CLS#wsPEN#w,p:ıSOUND 2,240,10,135,0,0 
1 - 

2500 ON ran GOSUB 2600 ,2400 , 2520 ,2620 „26 
20 ,2640 , 2649 , 2420 ,2430 , 2660, 2670 , 2400,26 


23520 REM zurenretet 
2350 REM #* Matrixe ##* 

2340 REM wre 

2350 REM ## 2,53 #* 

2360 PRINT#Ww „CHR$ (v) SPACEF CSICHRS WI SPAC 
ES(1O)CHR$ (=) „SPAGE$ (LOICHRS LyY) „SPACES (1 
DO) CHRE (SI) SPACE$ (4) „CHRS CV) SPACES& (SI CHRFT 
vJ;szRETURN 

2370 REM #4 4,5,6 *%* 
2380 PRINT#n „UHRF (v3 SPACE$ (SI CHR LV) SPAC 
E# (I CHR$ (5) SPACE$ (3) CHR$ (5) SPACE$ (8) CHR 
# (yICHRE$ {1283 CHR$ (x I CHR$TIZB)ICHRS$ (Y} SPAC 
ER NE) CHRE CB) SPALESTSICHRE (BI ERACEFLTICHR 
3 {vw} SPACE$ (5) CHR# (v) 5 : RETURN 

23970 REM ##* 7,B ** 

24090 PRINT#Ww ,CHR$ (v) SPACE$ (5) CHR& (v) SPA 
E$ {8} CHR$ (5) SPACE (F) CHRF (=) SPALE$ (3) CHR 
% (5) „CHR$ (128) CHR$ (5) SPACE$ L3ICHRS$ (s) „SP 
ALTES (FI CHRE (y} „EHRS$ LZBICHR$ (5) SPACEF (3) 
EHR$ (5) SPALEF (TICHRE (VI) SPACES (SI EHR$ (VW) 3 
sRETURM ; 

2410 REM ## 97 #%* 

2420 PRINT#Ww,CHR$ (57) 1 SPACE$ (5) s CHR$ (57) 
;CHR&$ (12) ; CHR$ (8) s SPALEF FI 3CHR$ (Ss) „SPA 
DES (8) E CHR$ (5} 5 SPACES (3) 5; CHRE IS} „SPACEFT 
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3) 5 CHR$ (=) „CHRS (128) HJ CHR$ (s) 5; SPACES (ZI ;C { 
HR$ (5) „SPACE$ (B} ; CHR#$ (5) 5 SPACES (3) ; CHRE&{ 


8) „CHR$ 57) ; SPACEF (5) 5; CHRE (57) 5 sSRETLURN 
2430 REM ## 10 #* 

2440 PRINT#wW,te$; SPACE$ (3) 5 te#; CHR$ (128) 
CHR$ {s} SPACE$ (ZI CHR#$ (5) „SPACES (ZI CHRE$ (5) 


„CHR& (128) CHR$ (5) SPACES (ZICHR$ (=) „SPACES _ 
(BICHRS (5) SPACES (FICHR$ (5) „SPACES(ZICHRE 


(s} „CHR$ (128) CHR$ (=) SPACE$ (3) CHR$ (5) „te 
3 SPACE$S (5) 3 teF#; RETURN 

2450 REM #* A x* 

2450 PRINT#%«,„CHR& (as) SPALEF (SICHR$ (as) „S 
PALEFTZICHRF LA CL I ICHRE LA (ZI ICHRFLAa II) „3 
PACE$ (2) CHR$ (a (4) I) CHRS (a {FI ICHRSLa lb) „5 
PACEF& (ZI CHRF La LCFI I CHRF La (BI I CHRE (Aa l9 I) IS 
ACE$ (14) CHR$ (as) SPACE# (SI CHRS$ (as) 5 sRETUR 
N 

2470 REM =» B,D,K #* 

2480 PRINT#w „CHR$ (&) CHR& (128) CHR& {s) CHRE 
(128) CHR& (zZ I CHRF12BICHRS (b) E PRINT, CHR 
# (ZI CHR#$ (128I CHRSTF ELLI ICHRE CH 12) I CHRE (FC 
SF ICHRS (128) CHRE$ (5) SPATES (ZI CHRS CF (AI I) CH 
REIF CHI ICHRE CH (ar) „CHRFKLZICHRELIZBICHREL 
FIFTIICHRE IF (BI) 5 

2490 PRINTAWw „CHRE (CF IP ICHRECLZBICHRE (5? 8 
PACE$ (ZI CHR& (# {LOJ ICHRELCFLLLIICHRE CF (12) 
3 „CHRECZEICHRECIZBEICHRE IF CLSI ICHREF CF 1A I) 


CHRS IF (1SI ICHRE (128) CHR& (5} a FRINTAWw, CHRS$ 


(bI CHR& (128) CHR& ts) CHR$CLZ2BICHRS (ZI CHRES 
128) CHR$ (b) 5; sRETURN = 


:2500 REM ERREREHER HE EN HE AIN NER EHEN 


2510 REN ## Variabelen fuer Matrixe ## 
2520 REM SUREREREEENEUCSANRNTHNNUNENEN 


2530 DATA 165,166,167,168,145,169,170,17 _ 


1,172 
2540 DATA 173,174,175,176,177,178,128,17 
9,128 


2550 DATA 128,180,128,181,182,183,184,18 


5,172 

2540 DATA 128,186,128,197,18B,189,128,17 
7,128 

2570 DATA 224, 225,226,227 ,228,229,230 ,23 
1,232,253,234,235,236,237,230 

2580 DATA 209,210,211,212,213,214,215,21 
6,217,218,219, 220,221 ,222,223 

2590 DATA 194,195,196,1977,199,1997,200,20 
1,202,203,204,205,206,207 ,208 

26500 IF aalw)=1 THEN v=-50:y=128 ELSE v-5 
iry=s 

2510 GOSUBR 23540: RETURN 

2420 IF aalw)=3 THEN veö2sn=178ıy=128 EL 
SE IF aalw)=4 THEN ve53en=sıy=128 ELSE v 
=54: yası #128 

2630 GOSUB. 23805 RETURN 


2640 IF aatw)=& THEN v=55:y=128 ELSE v-5 


dsy=s 

2450 GOSUB 2400: RETURN 

2460 RESTORE 7570: FOR d=1 TO 15sREAD f(d 
)sNEXTsb=Ad: GÜSUB 2480: RETURN 


2670 RESTORE 2580:FOR d=1 TO 15:READ f(d 


I :NEXTEeb=4H: 50SUB 2480: RETURN 
26580 RESTORE 25901FUüR d=i TO 15:READ f(d 
):NEXT:b=75:G0SUB 2480: RETURN 
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2690 ON ra GOSUB 2710,2720,2730 ,2740 
2700 RETURN 


2710 RESTORE 2530:FOR d=1 TO 9:READ atd) 


2750 REM KUNHHKac ce 

2760 REN #* Frogrammende #*#* 

2770 REM RseSBHHSHHRHHHHHENH 

27806 MODE O:INK 0,0: INK 6,0: INK 7,0: INK 
8,0:PEN & 

2790 FOR y=1 TO 13 

2800 FOR i=1 TO 10:PRINT CHR# (128) ; CHRFT 
145) 3 :NEXT 
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2810 FOR i=1 TO 104PRINT CHR$1143) 5; CHR${ 
128) 3 3sNEXT 
2820 NEXT 


:NEXTIGOSUB 2440:60T0 2700 2830 INK 0,7,15: INK 6,9, 1: INK 7,143 

. 2720 RESTORE 2540:FOR d=1 TO 9sREAD atd) 2840 WINDOW#7 ,5,16, 11,152: PAPER#7 ,8: CLS#7 
:NEXT3GOSUB 2460:60T0 2700 = PEN#7 ‚71 PRINT#7:PRINT#7:PRINT#7," YOU B 
2730 RESTORE 2550sFOR d=1 TO sREAD ald) USTED* 

:NEXT3GOSUB 2460: 60T0 2700 2850 FOR i=20 TO 1000 STEP 5sSOUND 1,i,5 
2740 RESTORE 2560:FOR d=1 TO F:READ ald) „iS: NEXTSFOR i=1 TO SOOSNEXT 

ıNEXTSGOSUB 2460: G0T0 2700 2860. MODE 1:INK 0,0sCL5 


2870 LOCATE 9,10:PRINT"Do you want a new 
game 7?" 

2880 LOCATE 18,14:PRINT"LY/NJ" 

2890 yn$=INKEY$ı IF yn$="" THEN GOTO 2890 
2900 IF UPPER$(yn$)="Y" THEN RUN 440 

2910 IF UPPERFTynS)I="N" THEN INK 1,24:PE 

N 1:CLSıEND 

2920 GOTO 2890 





ZEILENNR.ı EBUMMEN 570- SBQ: 27738' 1210- 12200 34274 1850- 18640: 50314 
10- 152 Aasaı 59%0- 8001 564382 1230- 12401 377 18709- 1880: 13882 Checksummen 
20- 25: 47820 s10- 6201 36347 1250- 12601 2067& 1990- 19003 13908 
30- 33 46305 630- 640: 31860 1270- 12801 5454B 1910- 1920: 24353 
40- 493 23064 650- 6401116764 1290- 13001 79807 1930- 1940: 41355 
50- 55: 43185 &70- 5801 1310- 13204116949 1950- 1980: 100222 
60- 651 27239 690- 7001 19979 1330- 1340: 94774 1970- 1980: 34360 
70- 75: 33057 710- 7201 1350- 135401 92345 1790- 20001 8698 
89- 100: 24018 730- 740: 71384 1370- 13801 83255 2010- 20201 15728 2490- 25001 44588 
110- 120: 84912 750- 760: 536445 1390- 14001 23912 2030- 2040: 78714 2510- 2520: 61132 
130- 140: 76044 770- 780: 27367 1410- 1420: 29537 2050- 20601 62065 2530- 2540: 70709 
150- 160: 16800 790- 800: 11993 1430- 1440: 18556 2070- 2080: 31170 2550- 2560: 70944 
170- 180: 21163 B10- 820: 13573 1450- 1440: 67550 2070- 2100: 40615 2570- 25801 55235 
190- 200: z11F1 830- 840: 47727 1470- 1480: 68919 2110- 21202 23837 2390- 2600: 77153 
Z10- 220: 46094 B30- B&0: 94963 1490- 1500: 1216 2130- 2140: 38358 2610- 26201 #358 
230- 2401 32180 870- BB0r 31483 1810- 15201 33256 Z150- 2140: 3647 2430- 26401 52025 
250- 260: 79648 890- 900: 13594 1530- 1540: 25407 2170- 21803 26617 2650- 2440: 24858 
2706- 280: 38207 910- 920: 79015 1550- 1560: 49407 2190- 2200: 40247 2670- 25890: 4611& 
290- 300: 14990 930- 940: 34039 1570- 1580: 16122 2210- 22201 15822 2690- 27001 21364 
319- 3208 114511 950- 9601 51272 1590- 1600: 25170 2230- 2240: 48834 2710- 2720: 130780 
330- 340: 106444 370- 9808 77465 1610- 16205 18424 2250- 2260: 62909 2730- 2740: 129921 
350- 340: 124907 990- 1000: 34281 1630- 16404 37937 2270- 2280: 103016 2750- 27608 25424 
370- 380: 32342 1010- 1020: AFad& 1650- 1440: 35627 2290- 23002 59797 2770- 27801 276408 
390- 400: 59668 1030- 10901 35452 1579- 16801 33749 2310- 23201 5312 2790- 23001 45208 
410- 420: 37750 1050- 1060: 10726 1490- 17003; 35539 2330- 23401 13497 2810- 2820: 3996& 
430- 4401 29494 1070- 10801 27174 1710- 1726: 22125 2350- 23403 53892 2930- 2840: 34207 
450- 460: 45917 1090- 1100: 46780 1730- 1740: 23731 2370- 23801 &20& 2850- 2860: 35424 
470- 4801 56455 1110- 1120: 44398 1750- 1760:104184 2370- 2400: 54808 2870- 2880: 51690 
490- 500: 127778 1130- 11401 22463 1770- 1780: 897 2410- 24203 7952 2890- 29001 52393 
510- 520: 59544 1150- 11601 16842 1790- 1800: 11489 2A3O- 2440: 4351 2910- 29201 34567 
530- 3401 68838 1170- 1180: 4405 1810- 1820: 5675 2450- 24601 28775 m nenn nm 
550- 560: 16359 1190- 1200: 16454 1830- 1840: 34124 2470- 2480: 67687 SESAMTCHEGKSUMMEı 25519 





DISKETTEN-ARCHIV ist ein Programm zur 
Verwaltung Ihrer Programm- und Daten- 
disketten. Mit DISKETTEN-ARCHIV kön- 
nen Sie sich, ohne lästigen Disketten- 
wechsel, die Inhalte Ihrer Disketten anse- 
hen, oder aber gezielt nach einem be- 
stimmten File suchen. Bis zu 19 Disketten 
können verwaltet werden. . 

Nach dem Start des Programms wird Ih- 
nen zunächst das auf die letzte Aktualisie- 
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rung folgende Datum angezeigt. Haben 
Sie das Datum bestätigt, bzw. das korrekte 
Datum eingegeben, gelangen Sie in das 
Menü von DISKETTEN-ARCHIV. Es stehen 
fünf Menüpunkte zur Auswahl! 


AKTUALISIEREN: Dient zum Auslesen der 
Directory einer Diskettenseite. Nach dem 
Auslesen werden ihnen die Disketten- 
nummer und -Seite angezeigt, Hatte die 


Compute mi 


Diskette eine ungültige oder keine Num- 
mer, so wird eine entsprechende Meldung 
ausgegeben. 


DIREKTORY ANSEHEN: Über diesen Menü- 
punkt können Sie sich, nachdem Sie die 
gewünschte Diskettennummer und-Seite 
eingegeben haben, die Direktory ausge- 
ben lassen. 

In der Kopfzeile werden neben Disketten- 
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nummer und -Seite das Datum der letzten 
Aktualisierung und das Formatder Disket- 
te ausgegeben. (Das sehr selten benutzte 
!IBM-Format wird nicht berücksichtigt.) 
Anschließend werden alphabetisch 
geordnet die Filenamen mit der jeweiligen 
Filelänge ausgegeben. (Das zur Nume- 
rierung der Diskette dienende File wird 
nicht angezeigt) Abschließend wird die 
Anzahl der freien Kbytes der Diskettensei- 
te, sowie die Anzahl der Einträge, abzüg- 
lich des Files für die Numerierung, ange- 
zeigt. 

Auf Wunsch kann die Directory auf einem 
Drucker ausgegeben werden. 


EINTRAG SUCHEN: Diese Option dient, wie 
der Name schon sagt, zum Suchen eines 
Files. Ist das File vorhanden, gibt DISKET- 
TEN-ARCHIV den Filenamen, Filelänge, 
Diskettennummer und -Seite, sowie das 
Datum, an dem das File zuletzterfaßt wur- 
de, aus. Konnte das File nicht gefunden 
werden, so wird Ihnen dies mitgeteilt. Ne- 
ben der Suche nach einem bestimmten 


File, können Sie sich über diese Option 
auch Listen von Filetypen (z.B. alle Basic- 
files durch Eingabe von .BAS) oder be- 
stimmten Filenamen erstellen lassen. Die 
Suchrouline ist in Maschinensprache ge- 
schrieben, so daß die Suche sehr rasch 
geschieht. 

Bei der Eingabe des Suchbegriffs ist da- 
rauf zu achten, daß dieser zwischen 2 und 
12 Zeichen fang sein muß. Der Suchbegriff 
kann in Klein- oder Großbuchstaben ein- 
gegeben werden. 

Die Ausgabe kann wahlweise auf dem 
Bildschirm oder einem Drucker erfolgen. 


Disketten numerieren: Voraussetzung für 
das Funktionieren von DISKETTEN-AR- 
CHIV ist, daß sich auf den Disketten ein Fi- 
le befindet, das zur Identifizierung der Dis- 
kette dient. Über diesen Menüpunkt wird 


ein File auf Ihren Disketten angelegt, aus 


dessen Name sich die Diskettennummer 
und aus dem Filetyp die Seite der Diskette 
ergibt. Obwohl das Numerierungsfile nur 
1 Byte lang ist, belegt es unter AMSDOS 1 


100 "RREEERERKEREEERRHH FRI I RR HRERER 3540 


Kilobyte. Sollten Sie der Meinung sein, 
daß hierdurch der Ihnen auf der Diskette 
zur Verfügung stehende Speicherplatz zu 
sehr verringert wird, können Sie natürlich 
auch ein vorhandenes File so umbenen- 
nen, daß es zur Identifizierung der Diskette 
herangezogen werden kann. 


Programm beenden: Bevor DISKETTEN-AR- 
CHIV beendet wird, können Sie entschei- 
den, ob Sie die Daten speichern möchten 
oder nicht. 

Haben Sie sich dafür entschieden die Da- 
ten abzuspeichern, werden Sie aufgefor- 
dert die Diskette, auf der sich DISKETTEN- 
ARCHIV befindet einzulegen. Ist dies ge- 
schehen, werden die Daten nach einer 
kurzen Verzögerung von ca. 2 bis 5 Se- 
kunden, je nach Anzahl der Einträge, ab- 
gespeichert. a 
Innerhalb der kurzen Zeitspanne zwi- 
schen der Bestätigung und dem Abspei- 
chern werden die Daten komprimiert, so 
daß sie immer möglichst wenig Platz auf | 
der Diskette benötigen. 


RER 3 
119 ’#*#+ Diskettenarchiv fuer Schneid 
ECPC #%** “2 B 
120 "##* Basic-Lader fuer Maschinenrouti 
nen *x*# 

I30O "REREREHRERUHKFHUNTIHHHER EFF 
EERHURE 

140 

150 MODE 2:LOCATE 10,10; PRINT "Bitte war 
ten, n.. an 

150 MEMORY 7994: adr=&A410 

170 WHILE a$<>"ende" 

180 READ a# s:.a=VAL("&"+a$) 

190 POKE adr,a ı sumssumta : adr=sadr +i 
200 WEND 

210 RESTORE 540 

220 FOR i=0 TO & 

2350 READ a# 2: a=VAL(Ü"K"+a$) 

2409 POKE 7995+i,a 2 sum=sum+ta 

250 NEXT . 

260 CLS:LOCATE 10,10 

270 IF sum“ 44314 THEN PRINT "Fehler in 
Data’s !"sEND 

Z2RO " 

270 PRINT "Bitte legen Sie Ihre ’Archiw’ 
-Diskette ein und" 

300 LOCATE 11,12 

310 PRINT "und druecken Sie anschliessen 
deine Taste !" ' 

320 TALL &RBI18 

330 SAVE "AREHIV” ,B,&A410,8167:5SAVE "ARCG 
HIV.DAT",„B, 79795, 7 
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350 DATA 21,5A,BB,7E,36,09,F5,E5,11,00,9 
C,CD,9B,BC,E1,F1,77,C07,21,0E 


360 DATA 96,ED,5B,D7,A4,FD,21,D9,A4,FD,3 


6,00,00,3E,FF,BE,20,1B,23,FD 
370 DATA 34,00,01,08,00,ED,BO,3E ‚2E,12,1 
3,01 ,03,00,ED,BO,7E&,CB,FF,12 

380 DATA 23,13,23,18,E0,3E,FE,12,09,06,0 
B,11,00,C0,21,DC,A4,CD,77,BC 

390 DATA C5,21,3B,1F,E5,CD,83,BC,CD,7A,B 
C,E1,C1,09,2B,E5,01,3E,03,3E 

400 DATA FF,ED,B9,23,22,DA,A4,11,41,1F,A 
1,ED,52,E1,D8,E5,2A,DA,A4,ES5 

410 DATA 23,5E,23,56,C01,E1,A1,E5,ED,42,1 
9,E5,C1,E1,7E,02,36,00,FE,FF j 
420 DATA 0B,2B,20,F6,2A,DA,A4,03,6E,A4,C 
9,3E,FE,21,40,1F,01,74,9A,ED 

430 DATA B1,22,DA,A4,3E,FF ,01,74,9A,ED,B 
1,2B,11,74, 9A,E5,A1,ED,52,E1 

440 DATA DO,ED,5B,DA,A4,7E,12,36,00,13,2 
3,FE,FE,20,F6,EB,C3,B1,A4,C3 

450 DATA 5A,BB,ED,43,41,52,43,48,49,56,2 
0,2E,44,41,54,21,40,1F ,36,00 

460 DATA 11,41,1F,01,00,7D,ED,B0,63,55,A 
4,CD,A7 ,A4,06,0B,21,DC,A4,11 

470 DATA 00,C0,CD,8C,BC,3E,02,11,3B,1F,2 
A,DA,A4,A1,ED,52,EB,ES5,C1,CD 

480 DATA 98,BC,C3,8F,BC,2A,D7,n4,36,00,E 
5,D1,13,01,2C,03,ED,B0,C3,22 

490 DATA A4,FD,21,D9,A4,AF ,32,77,45,24,7 
A,A5,3A,7D,A5,23,BE,28,0B,EB 

500 DATA 21,FF,7B,A7,ED,52,D8,£B,18,F1,2 
2,78,45,34,7C,45,47,05,11,7D 
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510 DATA A5,23,13,1A,BE,20,1B,10,F8,32,7 
7,A5,FD,34,00,23,CB,7E,28,FB 

520 DATA 11,0C,00,47,ED,52,22,78,A5,23,2 
2,74,A5,C9,24,78,A5,18,BD,ende 

530 ’ 

540 DATA 01,01,56,FF,FF,FF,FE 


Checksummen Teil 1: 





ZEILENNR.: SUMMEN 340- 350: 36751 

100- 110: 53382 360- 370: 71237 

120- 130: 51924 380- 390: 71318 

140- 150: 35761 400- 410: 73353 

150- 170: 20371 420- 430: 72455 

180- 190: 77926 4340- 450: 65331 

200- 210: 624 #60- #470: 73240 

220- 230: 32807 480- 490: 70412 

240- 250: 564750 500- 510: 69277 

260- 270: 2008 520- 530: 53580 

280- 290: 41526 540- » 14926 

300- 310: 29310 ie haar ann ieh nn ern rn an tere, 

320- 330: 2491 GESAMTCHECKSUMME: 23258 
1L0OO RR EHIER HH HRRH 
KERKERERER 
110 '##* 

ER 


120 '’##%* Disketten-Archiv fuer Schneide 
r CPC ##*+ 
1IS0 '#0x 

ER 


140 ‘*###* (CI Wolfgang Boenigk Osnabru 
eck KK 
150 '#%#%# 

er 
180 Run 
ME ö 
170. * 
180 REM Initialisierung 
190 


200 MODE 2:MEMORY &AOOO:WIDTH BOsKEY DEF 
FR ER 

210 LOCATE 20,10;PRINT "Bitte warten..." 
220 LOAD "ARCHIV.BIN" 

230 MEMORY 799709 

2409 CALL &A4E7 

250 ts$="druecken Sie anschliessend eine 
Taste "!" 

260 uts$="und " + ts$ 

270 REM ##* Datum ###* 

280 tg=PEEK (79959) = tg=tgrl 

290 mn=FEEKR(7996) »: jr=PEEK (7997) 

300 IF ctg=2# AND mn=2 AND jr MOD 4) THE 

N 350 

310 IF tg=30 AND mn=2 AND NOT jr MOD 4. T 

HEN 350 

320 IF tg=31 AND (mn=4 OR mn=& OR mn=9 9 

R mn=11) THEN 350 

3350 IF tg<>352 THEN S50 

340 tgq=1 3 mn=mn+1 : IF mn=13 THEN mn=l 
» jr=ejr+l 


350 CLS:LOCATE 10,8 : PRINT "Ist heute d 
er " 5 

360 PRINT USING "##"3tgs=: FRINT “."5 

S70 FRINT USING "##"zmn;=2 PRINT "."; 

380 PRINT USING "##"3 Jr; 

370 PRINT " J/n 7" 

400 a$=INKEY# : IF a$="" THEN 400 
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410 IF UPPERFLaF)<>"N” THEN 470 

420 PRINT : FRINT :PFRINT TAB (10745: INPHT 
"Tag ı "to 

430 IF tgit OR tg > 3i THEN 420 


440 PRINT TAB{1O);3SsINPUT "Monat ® "jmn 
450 IF mn<i OR mn>12 THEN 440 

450 PRINT TAB(10)3=2 INPUT "Jahr = ";jr:G 
OTO 359 

470 FOKE 7995,t9 =: POKE 79975,mn s POKE 7 
997, ir 

A480 ° 

490 REM Menue 

500 ' 


510 CLS:LOCATE 24,5:FRINT "M EN U E" 


520 LOCATE 20,8:PRINT "1 Aktualisieren" 
530 LOCATE 20,10:PRINT "2 Directory ans 
ehen" 

540 LOCATE 20,12>PRINT "S Eintrag suche 
m" 

550 LOCATE 20,14:PRINT "4 Disketten num 
merieren" 

SJa0 LOCATE 20,1&:FRINT ?5 Programm been 
den" 

570 LOCATE 11,20:PRINT "Geben Sie bitte 
die gewuenschte Nummer ein !" 

Z80 as=INKEY#F:IF a$="" THEN 580 


5970 IF at<"1" OR as>"5" THEN 580 

500 CLS:ON VALlaf) GOTO 5419,770,1160,1&2 
0,1830 1 . 

io ° 

20 REM AKTUALISIEREN 

830 ° 

640 LOCATE 10,10: PRINT "Soll wirklich ak 
tualisiert werden J/N ?” 

450 as=INKEYF: IF a$="" THEN 450 ELSE IF 
URPERF (as) <>"J”" THEN 489 

840 ELS:LOEATE 10,7:PRINT "Bitte legen S 
ie eine Diskette ein und" 

670 LUCATE 10,8:PRINT ts$ 

680 CALL &BB1i8 ı CALL «A410 

590 nr=PEER (&ICOLI-KFO 

700 IF nar>?7 OR nr<l THEN 920 

710 IF nr<>1 THEN 740 ELSE IF PEEKRICO2 
)=32 THEN 7409 

720 b=PEEK (IC02)-&30 

730 IF b>7 THEN 920 ELSE nr=10+b 

740 ng=PEEK (&IC09) -&30 

750 IF pg<>t AND pa<>2 THEN 920 

760 LOCATE 10,10:FRINT "Disc 3"s3nr; TAB(2 
»);"Seite ı"5pg 

770 ab=((nr—-1) *Z+pg-1) 3930+8000 

780. POKE ab,&FF =: POKE ab+3,nr 

7790 FOKE ab+4,pg : PÜKE ab+7,tg 

800 POKE ab+8,mn : POKE ab+9, jr 

810 abhhn=INT t (ab+10) /256) 

820 abl=ab+10-abh#256 

830 POKE &A4D7 ,abi:FOKE &A4D8B,abh 

8409 abh=INT (ab/256) : abl=ab-abhh#r25& 
850 FPOKE ab+1,abl : POKE ab+2,abh 

B40 CALL «A519 

870 FOKE ab+5,PEEK (&A4D9) 

ga0 POKE ab+&,„PEEK &ABFF) 

3570 LOCATE 10,12:PRINT "5011 eine weiter 
e Diskette aktualisiert werden J/N 7" 








bücher 


Was fehlt auf Ihrem 
Bücherbord? 


von Peter Heiß 


Wer seinen Computer richtig einsetzen 
will, dem reicht früher oder später die Ar- 
beitsgeschwindigkeit eines BASIC-Inter- 
preters nicht mehr aus, so daß er auf die 
wesentlich schnellere Maschinensprache 
zurückgreifen muß. Doch spätestens jetzt 
fangen die Probleme an. Bücher, die die 
Hard- und Softwareeigenschaften der 


Schneider-Computer beschreiben, sind’ 


zwar schon vorhanden, aber die nützen ei- 
nem wenig, wenn man nicht weiß, wie der 
Z80-Prozessor zu programmieren ist. Ge- 
nau in diese Lücke stößt das Buch „Z80 
Maschinensprachekurs“ von Peter Heiß. 

Praktisch jeder Befehl wird anhand von 
Ubungsprogrammen erklärt, was den Vor- 
teil hat, daß der Leser ziemlich schnell zu 





einem Erfolgserlebnis kommt und die Be- 
deutung und Wirkung der Befehle fast 
spielerisch begreift. Nach jedem Kapitel 
werden Übungsaufgaben gestellt, die mit 
der Zeit schwieriger werden, aber von je- 
dem leicht gelöst werden können, der das 
Buch aufmerksam durcharbeitet. Am En- 
de müßte eigentlich jeder in derLage sein, 
eigene Programme zu erstellen, so daß 
das Lernziel relativ schnell erreicht wird. 
Zum Anhang des Buches gehört neben ei- 
ner vollständigen Befehlsübersicht auch 
das Listing eines Direktassemblers, so 
daß auch selbstentwickelte Programme 
leicht eingegeben werden können. 

Fazit: Empfehlenswert 

280 Machinensprachekurs für den Schneider 
CPC 464 / 664 / 6128 

Heise-Verlag, Hannover _ 
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DFÜ für Jedermann 


Rainer Severin 


Datenfernübertragung ist in der Usersze- 
ne so etwas wie ein Zauberwort. Nicht zu- 
letzt deshalb, weil es ein Kommunika- 
tionsmittel darstellt, das ohne Rücksicht 
auf die Systemvielfalt Gleichgesinnte mit- 
einander verbindet. Ursprünglich war es 
der Reiz am Hacken (sprich: häcken), also 
das Eindringen in fremde Datenbanken, 
was viele User zum Akkustikkoppler grei- 
fen ließ. Heute jedoch sind alle wichtigen 
Datenbanken so kompliziert abgesichert, 
daß dieser Aspekt kaum noch eine wichti- 


Compute mib 


ge Bedeutung hat. Dennoch erfreut sich 
die DFÜ immer größerer Beliebtheit. Elek- 
torıischer Briefkasten, Mailboxen mit 
Kleinanzeigemarkt und Programmüber- 
tragung sind nur die populärsten Schlag- 
worte der DFU, 


Wer sich allerdings als Anfänger an die 
DFÜ wagt, wird unversehens mit einer 
Vielzahl von neuen Begriffen, gesetzlichen 
Bestimmungen und elektronischen Daten 
konfrontiert. 
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| Rainer Severins Buch setzt genau an die- 


1 Feinheiten und Besonderheiten der DFÜ 
| ein. Mit der den Databeckerbüchern 
| selbstverständlichen Gründlichkeit wer- 
-f den alle wichtigen Aspekte der DFÜ be- 
| handeltund verständliche Anleitungen für 
4 daseigene Arbeiten mit der DFU geliefert. 
| Neben einer Reihe von Hardwaretips, 
Adressen und Mailboxen und einer Soft- 
wareübersicht, wird auch ein eigenes Ter- 
‚5 minalprogramm zum Abtippen angeboten 
| und eine Bauanleitung für eine Autoans- 
-F wer-Einrichtung präsentiert. 
- Eine wirklich sehr gelungene Einführung 
in die Datenfernübertragung, allerdings 
vermissen wir am Ende des Buchs ein 
Sachwortregister (in der nächsten Aufla- 
. ge, ja?). (uk) 


- Batabecker-Verlag, Düsseldorf 
Preis: 39,-- DM 


Das hier vorgestellte Buch: stellt kein 

I. Fachbuch zum Thema „Computer“ im üb- 

- lichen Sinne dar. Es ist vielmehr ein span- 

‚ nendes Unterhaltungsbuch, das sich mit 

} dem Thema von ganz anderer Seite be- 
| schäftigt. 

' Marcs Traum und seine größte Leiden- 





1 schaft ist der Besitz eines Computers. Er 
| träumt täglich davon, den Golden Arrow, 





| ser Stelle an und führt den Leser in die |. 

























den besten Computer der Welt zu besit- 


zen. Doch leider hater kein Geld! Kurz ent-. 


schlossen beschließt er, während einer 
Messe seinen Computer zu stehlen. Den 
Diebstahl plant er wie ein Gomputerpro- 
gramm. Doch wie jedes Programm am 
Anfang, so hat auch dieser Plan Fehler. 
Zum Beispiel wußte Marc nicht, daß die 
Computerfirma eine Sperre gegen Dieb- 


nicht anders bei dem Floppybuch für den 


Schneider CPC. Neben einer grundiegen- 
den Einführung in das Diskettenbetriebs- 
system unter GP/M und in das Arbeiten 


mit AMSDOS werden alte Filetypen ge- 
nauestens erläutert und in Programmbei- 


spielen demonstriert. Für dasfortgeschrit- 
\ tene Programmieren werden die DOS- 
Vektoren beschrieben. Das komplette 


DOS-Listing gehört ebenso zum Umfang 


des Buches wie ein Diskmonitor und ein. 
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bücher 
Der Gomputerdieb 





von Emil Zopfi 


stahl in den Computer eingebaut hat, so 
daß Marc den Computer überhaupt nicht 
benutzen kann. 

In einem Freizeitzentrum trifft Marc An- 
dreas, einen ehemaligen Computerspe- 
zialisten. Obwohl der nie wieder etwas mit 
Computern zu tun haben wollte, reizt es 
ihn doch, die Sperre zu knacken. So be- 
schließt er zusammen mit Marc gegen 
den Computer und die Polizei, die Marc 
mittlerweile auf der Spur ist, zu kämpfen. 
Wir wollen nicht zu viel über den Inhalt 
verraten, denn ein wenig Spannung soll 
schon bleiben. Eine positive Begleiter- 
scheinung des Inhaltes dieses Buches ist 
die Weitergabe von Fachwissen aus dem 


- Bereich der Programmierung. Der Autor, 


selbst Computerfachmann, hat mit gro- 
Bem Einfühlungsvermögen und Sachver- 
stand eine Geschichte über die Faszina-. 
tion der Gomputer geschrieben. 
Benzinger Verlag Zürich, Köln ca. 144 $., 
16,80 DM, ISBN 3 545 32260 2 





TITTEN ESIHIT LG 


Floppyhuch für den CPC 


Typisch für Databeckerbücher ist, daß sie 
.\\\jı den Leser tief in das Innere der techni- 
„ı\\) schen Geheimnisse blicken lassen. So 


Diskettenmanager. Da die Programmbei- 
spiele sehr umfangreich sind, wird eine 
Diskette zum Buch für 29,-- DM angebo- 
ten. 


Das Buch hatschon beste Dienste in unse- 
rer Programmierabteilung geleistet und 
wird auch von unseren Programmierern 
wärmstens weiterempfohlen. 


Brückmann/Schieb, Das große Fioppybuch, Dis- 
kettenprogrammierung für Einsteiger, Forige- 
schriitene und Profis mit dem CPG 
Datahecker, Düsseldorf, 49,-- OM 
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900 at=INKEY$ » IF a$="" THEN 9009 
910 IF UPPER${ta$)="N" THEN 480 ELSE 60TO 
6b 
720 REM ### Unqueltige Discnummer #*% 
930 PRINT: PRINT TAB(10); "Die eingelegte 
Diskette hat keine gueltige Nummer !” 
940 PRINT : PRINT D 
950 LOCATE 25,255PRINT "Weiter auf Taste 
ndruck !" 
760 CALL &BB18 : GOTO 480 
979 ° 
980 REM Directory ausgeben 
290 
1900 LOCATE 1,5 
1019 PRINT TAB(10) 3: INPUT "Gewuenschte D 
isc-Nummer : "nr 
10209 IF nr <i OR nr>19 THEN 1010 ELSE PR 
INT 
1030 PRINT TAB(10)5;3: INPUT "Gewuenschte 5 
eite s ’spg ; 
1040 IF pg<>1 AND pg<>2 THEN 1030 
1050 ab={ (nr-11#2+pg-1)*830+80097 
i0A0 abz=ab 
1070 IF PEEKtab-P<>%FF THEN PRINT>PRINT 
»PRINT TAB(1O)3"Fuer Disc"3ar;" Seite";p 
g;"liegen keine Eintraege vor!":50T0 959 
1080 aus=0 » GOSUB 19750 
1070 FRINT s PRINT 
1100 PRINT TAB{10);'"Sall die Directory a 
uf den Drucker ausgegeben werden J/N 7" 
1110 as=INKEY$: IF a$="" THEN 1110 ELSE I 
F UPFERFtaSI<>"J" THEN 480 
1120 PRINT:PRINT TAB{10); "Schalten Sie b 
itte Ihren Drucker ein und" 
1130 PRINT TAB{10);,ts$ 
1140 CALL %BB18 =: aus=8 
- 1150 ab=abz2:60SUB 1950:G60T0 480 
1160 
1170 REM Suchen 
1180 “ 
1190 LOCATE 6,7:1L$=""ıR$="" 
1200 PRINT TAB(&)5:LINE INPUT "Suchbegri 
ff r ";s# 
1210 IF s#="" OR LEN(s#)=1 DR LEN (s$} 712 
THEN 12009 
1220 s$=UPPER# (s$) 
1230 IF LEN(s$)<5 OR LENts$)=12 THEN 131 
[0] 
1240 IF MID$(s$,LEN({s#) -3,1)%>"." THEN 1 
310 
1250 REM Blanks einfuegen 
1260 1$=LEFTF(SF,LEN{s#) -4) : rF$=RIGHTFL 
5s$,4) 
1270 FOR i=LENtI$) TO 7 
1280 1$=1#+" 
1290 NEXT i 
1300 st=1#++r# 
1310 POKE KASTC,LENts#} =: POKE &A4D9,0 
1370 POKE &A57A,%240 » POKE &AS7B,&IF 
1330 FOR i=1 TU LEN(s$} 
1340 POKE #AS7C+i „ASC(MID$ (s$,1,1)) 
1350 NEXT i 
1359 PRINT:PRINT:FRINT TAB(A); "Ausgabe a 
uf >»Biildschirm oder >Dirucker ?" 
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1370 a$=INKEY$: IF a$="" THEN 1370 

1380 IF UFPER$(a$)="D" THEN aus=8 ELSE a 

us=O 

1390 IF aus=8 THEN PRINT:PRINT TAB(&)5"S 

chalten Sie bitte Ihren Drucker ein und 
"PRINT TAB(&)5;tSs$:CALL %BBIS 

1400 CLS:LOCATE 1,5 

1410 TALL A529 

1420 IF PEEK{&A4DY) THEN 1469 

1430 LOCATE 20,7:PRINT s$;" ist nicht vo 

rhanden !" 

1440 LOCATE 25,25:PRINT "Weiter auf Tast 

endruck !" 

1450 CALL &BB18 : GOTO 480 

1460 IF FEEK (&A577)=0 THEN PRINTEGOTO 14 

40 

1470 ad=PEEK (&A5S78) +PEEK (&.A579) #256 

1480 gr=INT ( (ad-8009) 7/8930) #330+8000 

1490 FRINT#aus,TABR{S}3 

1500 FOR i=ad TO ad+il 

1510 PRINT#aus „CHRS tPEEK (id) 5 

1520 NEXT i 

1530 FRINT#aus,TAB(17); USING "##4##" 5 PEEK 
tad+12) 2805 

1540 PRINT#aus,"K";3 TAB(28)5 "Disc =» ";USI 

NG "##"3PEEK(gr+3);5 

1550 PRINT#aus ,TAB(42); "Seite = ";USING 
"44", PEEK (gr+4); 

15406 PRINT#aus,TAB(S8);5"Stand =: "3USING 
"444 PEEK(gr+7);3 

1570 PRINT#aus,"."3USING "##";PEEKlgr+8) 
3 

1590 PRINT#aus,".";USING "##";PEEK (gr+9) 
1590 adh=INT t tad+12) 7256) »adl=ad+12-adh* 

256 

1400 FOKE %AS7A,adlıPOKE &A57B,adh 

15810 SOTOD 1410 

1520 

1430 REM Disketten nummerieren 

1640 " 

16850 LOCATE 10,10sPRINT "Sollen wirklich 
Disketten nummeriert werden W/N 7" 
1660 a$=INKEY$: IF as="" THEN 1560 ELSE I 

F UPPER$(a#)<>"J" THEN 480 

1570 CLS : LOGATE 1,7 

15880 FRINT TABt10)3: INPUT "Welche Nummer 
soll die Diskette erhalten 7 ",‚,nr 

15890 IF nr<i OR nr>17 THEN 1880 

1799 nr $=STR$ (nr) 

1710 PRINT : PRINT. 

1720 PRINT TAB(10)3"Legen Sie bitte Seit 

e it der Diskette ein" 

1730 FRINT TAB(10) zuts$:CALL %BB18 

1740 SAVE nr$+".1",b,1,1 

1750 PRINT : FRINT 

1760 PRINT TAB(10);"Legen Sie bitte Seit 
e ? der Diskette ein" 

1770 PRINT TAB(10)z5uts#:CALL &BB18 

1780 SAVE nrır$+r".2",b,1,1 

1790 PRINT =: PRINT = PRINT E 
1800 PRINT TAB(10);5"Soll. eine weitere Di 
skette nummeriert werden J/N 7" 

1816 a$=INkEYt: IF a$="" THEN 1810 

1820 IF UFPERS$(a$)<>"J" THEN 480 ELSE 16 
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70 

1850 * 

1840 REM Programm beenden 

1850 

1850 LOCATE 5,7:PRINT "Soll das Programm 
wirklich beendet werden J/N 7?" 

1870 af=INKEY$: IF a$="" THEN 1870 ELSE I 

F UPPER#(as)<>"J" THEN 4890 

18980 LOCATE 5,10:PRINT "Sollen die Daten 
gespeichert werden J/N ?" 


1890 as=INkEY$: IF as="" THEN 1890 ELSE I 


F URPPER#(a&)="N" THEN 1930 
1900 LOSCATE 5,10:PRINT "Bitte legen Sie 
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2010 IF FEEKlab-F)=&41 THEN fr=169 ELSE 


‘ fr=178 


. 2050 


2020 FRINT#aus , TAB (58); "Stand ; "3 

2930 PRINT#auS USING "2#"3PEEK(ab-2);:FR 
INT#sus,"”."5 

2040 PRINT#aus ‚USING “44° PEEK (ab-1)3:PR 
INT#aus,"."5 

2950 PRINT#aus ‚USINB "44": PEEK (ab) =PRINT 
#aus 

FOR i=-1ı TO PEEKlah-4) 

FOR b=1 TO 12 
FRINT#aus „CHR$ (PEEK (ab+b))} 5 


2070 
2080 


die Frogrammdiskette ein " 2090 NEXT b 

1910 LOCATE 5,11:PRINT uts# 2100 PRINT#aus „USING "####" 5 PEEK (ab+13)- 
1920 CALL &BBid » CALL &A4F7 80; 

1930 CALL © 2110 PRINT#aus,"K ". 

1940 2120 ab=ab+15 

1950 REM Unterprogramm Directory ausgebe 2130 NEXT i 

n 2140 PRINT#aus: PRINT#aus 

1950 ° 2150 FOR i=1 TU PEEK (ab2-4) 


1970 TCLS:PRINT#aus," Disc =» "USING "# 
#";PEEK tab-&4)3 

1980 PRINT#aus, TAB(18);, "Seite ; 
"Hs PEEK(ab-5)5 

1990 PRINT#aus, TAB(3B8) 5 "FORMAT = "5 

2000 IF FEEK(ab-3)=&41 THEN PRINT#aus,"C 


PM"; ELSE PRINT#aus, "DATA"; 


"USING 


#r=fr- (FEEK labz+13%i)-%80) 

2170 NEXT i 

21809 PRINT#aus,fr-1;"Kk free"; TAB(20);PE 
EK tabz-4);5" Eintraege" 

217Q IF aus=8 THEN FRINT#8:PRINT#8:PRINT 
#8 

2200 RETURN 


2140 





480- 490: 3176 960- #370: 5107 14320- 1430: 47542 18B80- 1870: 503355 
509- 510: 11282 980- 990: 21345 1449- 1450 59143 1900- 1910r 60838 
CHECK Vi:PRÜUERFSUMNEN: 520- 530; 74941 1090- 1010: 10754 1450- 1470: 49558 1920- 1930: 8009 
540- 550: 92275 1020- 1639: 100511 1480- 1490: 543562 1949- 1959: 57053 
ZEILENNR.z SUMMEN S559- 579: 104390 1049- 1050: #3122 15009- 1510: 31902 1960- 1970: 45555 
109- 1103 54320 580- 5390: 45713 1050- 10703 14201 1920- 1530: 45914 1980- 1990: 32103 
120- 130: 24138 500- #10: 29641 1980- 1070: 10178 1340- 15501 29536 2000- 2010: 485978 
140- 150: 15812 620- 5301 97390 1100- 1110: 80278 1540- 1570: 51540 2020- 2030: 87658 
1607 170: 48020 640- 550: 63115 1120- 11305 56655 1580- 15901 37765 2040- 2050: 109758 
189=- 1904 16695 660- 570: 46412 1140- 1150: 34084 1600- 1410: 27348 2050- 2070: 29177 
209- 210: 47354 #B0- #901 17764 1160- 1170: 4005 1620- 1630: 28697 2Z080- 2070: 34278 
220- 2350: 7375 790- 710: 82092 1180- 1190: 16215 16549- 1650: 27984 2100- 2110: 55454 
240- 250: 31970 7209- 7301 50394 1200- 1210: 45704 1650- 16701 22156 2120- 21305 11569 
260- 270: 27172 740- 750: 39947 1220- 1230: 44525 1680- 1670: 51847 2140- 2150: 38452 
280- 2901 &#8213 760- 770: 47138 1240- 1250: 51766 1700- 1710: 12144 21&0- 2170: 62247 
300- 310: 1253242 72a0- 790: 74411 1250- 1270: 16981 1720- 17301 52864 2180- 2190: 29512 
320- 350: 17419 800- 810: 44637 1280- 12902 W153 1740- 1750: 14248 SEBReT 2 201 
540- 350: 57031 820- 830: 57497 15009- 1310: 31541 1780- 17701 31637. | Ten 
360- 370: 30571 840- 850: 48552 1320- 1330: 26925 1780- 1790: 15993 GESAMTCHECKSUNMEr 43630 
380- 390: 11101 B840- 870: 156405 1540- 135% 30242 1800- 18104 35431 
400- #410: 40580 890- 870: 37541 1360- 1370: 76147 1820- 1830: 25051 
420- 4350: 42483 ID- P0r 53006 1380- 1390: 72210 1840- 18501 16746 
440- 450: F1646 320- 930: 797943 1400- 1410: 2323 1840- 1870: 22082 
460- 470: 75233 740- 950: 54548 


GAVE- 


WALKER 


Schneider CPC 464 


10 '5YMEOLBEST IMMUNG 


20 SYMBOL AFTER 0 
30 SYMBOL 200,127,119,187,187,185,127,74 


49 SYMBOL 201 ,54,27,51,51,97,97 
50 SYMBOL 202,0,0,0,0,0,142,95,51 


1186 


117 


Ziel des Spiels istes, „Jonni“ den Archäo- 
logen durch neun Höhlen zu steuern und 
in der letzten ein Schwert einzusammeln. 
„Jonni“ wird dabei von „Steino“, dem Ur- 
zeitmensch, einem fliegenden Totenkopf, 
herabfallenden Steinen und brodelnden 
Lavaquellen behindert. Falts eine Perle in 
der Höhle liegt, sollte sie eingesammelt 


werden, denn das bringt Punkte und die 
werden im weiteren Verlauf des Spieles 
benötigt. Wenn nämlich in der letzten 
Höhle der Score unter 800 liegt, findet sich 
„Jonni“ plötzlich in der 5. Höhle wieder. 
Vorsicht! Verschiedene Höhlen sind nicht 
zu bewältigen. Dann muß „Jonni“ zurück 
gehen. 


60 SYMBOi. 203,100,62,79,254,56,124,24,2 
70 SYMBOL 204,30,119,187,187,193,127,54, 


119 


80 SYMEDL. 229,0,32,223,253,199,64 


Compute mih 


30 SYMBOL 230,0,0,0,0,0,0,112,250 
100 SYMBOL 231,1724,242,127,28,30,24,24,& 








Programme 


110 SYMBOL. 
23,15 

120 SYMBOL 
130 SYMBOL 
& 

140 SYMBOL 
150 SYMBOL 
140 SYMBOL 
170 SYMBOL 
„1.08 

180 SYMBOL 
„Ö 

190 SYMBOL 
200 SYMBOL 
7 

2iO SYMBOL 
48,224 
220 SYMBOL. 


& 

230 SYMBOL 
240 SYMBOL 
250 SYMBOL 
260 SYMBOL 
8,48 

270 SYMBOL 
„175 

280 SYMBOL 
55 

2970 SYMBOL 
o 

300 SYMBOL 
310 SYMBOL 
320 


232,127,223,111,222,222,222,2 


233 ,27,27,27,27,27 
234 ,56,84,254 ,258,124,40,56,1 


235,16,56,16,84,254,84,16,16 
236,16,16,16,16,16,16,16,1& 
237,56,124,78,87,9,24,24 
238,60,118,239,239,246,124,56 


239,108,198,195,195,195,231,0 


240,0,0,128,192,96,48,96,192 
241 ,255,255,127,127,63,15,31, 


242,255, 299,254 ,254,252,240,2 


243,255,255,126,60,48,56,48,1 
244 ,0,0,0,0,0,50,125,255 
245,31,5,3,30,124,80 
24&,16,56,108,62,56,8,8,0 
248,171,192,236,172,120,120,4 
249,138,149,75,85,147,171,215 
259,9,28,62,126,126,255,255,2 
251,108,68,130,130,69,68,40,2 


252,0,0,0,0,16,16,56,5& 
253,28,56,16,56,120,56,64,16 


"TITELBILD 


330 MODE 1:INK 0,0:BORDER 1:INK 1,18: INK 
2,13: INK 3,2:PAPER Ö:sPEN 1:ELS 
340 PEN 1:A$=CHR$ (254) TLOCATE 1,1:5PRINT 


ASZAFSLAFE" 
#3; AS 


"AS u "Ak," "As; [1 "RSsA 


350 AS=CHRE (234) :LOCATE 1,2:PRINT As; " 
"As; " As ae as" "As 

360 A$=CHRE& (234); LOCATE 1,35PRINT A$z" 
As" "za" ag" ag" AssAs 

370 A&=CHR$ (234) s LOCATE 1,4: PRINT A$z" 
"Ass As; AF; " "Ag," nnAsSz" "A 

380 A$=CHR$ (234) :LOCATE 1,55PRINT A$;A$;z 


At a" A" 


As; " 23 As; As;AF 


290 ASCIIF="-WALKER" 
460 POKE %B3358,217 


410 URIGSIN 


420 FÜR K=1 TO LEN 


260,340 
(ASCII$) 


430 ASCII=ASC MIDS(ASCIIS,K,1)) 
440 CHARADR=HIMEM+ASEII«B+B 
450 FOR I=1 TO 6 

4640 A=PEEK (CHARADR) 

470 BINAER$=BIN$ (A,B8) 

480 FOR J=1 TO 8 

490 SEGMENT$=MID$ (BINAER$,J,1) 
500 IF SEGMENT$="0" THEN 550 
510 PLOT X+J%4,1#4 

520 PLOT X+2+Jx4,1r4 

530 PLOT X+J#4,I#4+5 

540 PLOT X+2+J#4,1#4+2 


550 NEXT J: 


CHARADR=CHARADR-IENEXT I 
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560 X=X+40 

570 NEXT K 

S80 PEN 2:FOR A=1 TO 39ıLOCATE A,7:FOR K 
=i TO 40::NEXT K:SOUND 1,25,1,75PRINT CH 
RS (234) :NEXT 

590 PEN 2:LOCATE 20,9=:PRINT "MENUE: "sLOC 
ATE 1,125PRINT "Erklaerung_________L____ 
me. an (1) "2PRINTSPRINT "Start_____ 
Ne en 

&00 PEN 3sLOCATE 1,19: PRINT STRINB$ (39," 
*"}3LOCATE 1,25:PRINT STRING$(39,"#"):FO 


.R A=20 TO 24:L0CATE 1,A:PRINT "#"2LOCATE 


39,A:PRINT "#":NEXT:PEN 1:LOCATE 3,21:P 
RINT "<C) 19858 By Michael Bussmann":LOCA 
TE 8,23: PRINT "and Lutz Klein. "PEN 2 
&10 ENV 1,25,744131571,1,12,-1, 10: ENV 2,1, 
15,1,15,-1,105ENV 3,11,1,1,11,-1,& 

&20 READ TONE: IF TONE=1 THEN 670 

630 IF TONE=89 THEN PAUSE=40 ELSE FAUSE= 
30 

640 SOUND 2,TONE,PAUSE,0,1,1:350UND 4,TON 
E*2 ,PAUSE,0,2,1:50UND 1,TONE/2,FAUSE „0,3 


1 

7 

&50 GOTO 620 

660 DATA 159,119,119,119,127,119,1064,106 
„106,119, 106,95,95,95,106,95,89,89,89,95 
‚„89,00,890,95,106,117,106,106,106,119,127 
„119,119,119,119,1 

&70 LOCATE 1,17:PRINT "Ihre Wahl bitte.. 


680 O$=INKEY$: IF O$="" THEN 680 

690 IF O$<>"1" AND Osc>"2" THEN 680 

700 IF 0$="2" THEN leben=4:G0T0 830 

710 MODE 1:BORDER O:INK 0,02INK 1,2: INK 
2,9: INK 3,6,2 

720 PEN 1:FOR A=1 TO 40:LOCATE A,1:PRINT 
CHR$ (Z41)53 SOUND 1,A*15,1,0,1,1:2LOCATE 
A,2S:PRINT CHR$(241);3:NEXT AsFOR A=1 TO 
25:SOUND 4,A4*10,1,0,1,1:L0CATE 1,A:PRINT 
CHR$(241)52LOCATE 40,A:PRINT CHR$(241)5 
zNEXT A 

730 »POKE &B1C8,0:POKE &BICF ‚&CC:FOKE &B 
100,&33: 

749 BORDER 3:LOCATE 5,3:PEN 3:PRINT"CAVE 
-WALKER"IPEN 23POKE &BiCB,1:POKE &BICF,% 
BS:POKE &BINO,%44:POKE &B1D1,%22:POKE &B 
1D2,%11: 

750 FEN 23LDEATE B,4:PRINT "---- 


——— —  — —— ————— 


7&0 LOCATE 3,6: PRINT"Das Spiel laeuft in 
einer Hoehle ab, ":LOCATE 3,8: PRINT"Sie 
muessen versuchen,die in der":LOCATE 3,1 
O:PRINT"Hoehle liegenden Perlen zu samme 
in. "sLOCATE 3,12:PRINT"Dabei behindern S 

ie Lavaquellen," 

770 LECATE 3,16:PRINT"herrabfallende Fel 
sbraocken,. "sLOCATE 35,18: PRINT "Um aus der 
Hoehle zu kommen ,muessen":LOCATE 3,20:P 
RINT "Sie ein Zauberschwert einsammeln." 
780 LOCATE 3,14:PRINT "Hoehlenbenohner „9 


rosse. Steine und" 


790 LOCATE 3,23:PEN SPRINT "Bitte druec 
ken Sie [TABI!" 
800 WHILE INKEY <(AB} < >00: WEND 
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4% Kleinanzeigen 





810 BORDER 1:RUN 

820 "HAINROLTINE 

830 QT=TIME: farb=INT {RND*25) +1: IF farb=3 
OR farb=i THEN 859 ELSE INK 1,3:INK 2,1 
:INk. 3,6,28;SFEED INK 10,5:MODE 1:INK O, 
farb: BORDER 0: 

840 IF SCHWERT=Ii THEN LÜCATE SCHWERTP,10 
PRINT CHR$ (235) 2 LOCATE SCHWERTP,11:FRIN 
T CHR$ (235) 

850 FÜR A=1 TO 40: FOR B=1 TO S:PAPER I1:Ll 
OCATE A,B:FRINT " "3:NEXT B,A 

850 ZUF=INT (RND#3S) =: IF ZUF=0 THEN A$=CHRF 
(241) :0$%=CHR$ (242) ELSE IF ZUF=1 THEN Ar 
=CHR$ (243) :0$=CHR$ (241) ELSE IF ZuUF=2 TH 
EN A$=CHR$ (242) : O$=CHR$ (243) 

870 FAPER G:PEN 1:FOR A=1 TO 40 STEP 2 
8390 LOCATE a,4:PRINT a$;0$; 

890 NEXT a: 

900 FAFER 1:FOR a=1 TO 40:FOR b=25 TO 18 
STEP -1:LGCATE a,b:FRINT " "3:NEXT b,as 

FAPER Ö:FPEN 1:FOR a=1 TO 40:L0OCATE a,17: 

PRINT CHR$ (244); NEXT & 

910 x=INTiRND#Z8B) +7: X1=INT (RND*28) +7: XM= 

1:YM=14: IF X=X1 THEN 919 

920 PERLE=INT (RND#S7)+1:1IF FERLE=X OR PE 

RLE=X+1 OR FERLE=X1 OR PERLE=Xi+1 THEN 9 


1 20 





Name und Adresse 


An „Gompute mit ..* 
Tronic-Verlag 
Postfach 


3440 Eschwege 

Unter der Rubrik „Kleinanzeigen“- 
veröffentlichen wir Gelegenheits- 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon- 


Unterschrift 


Auftrag für Gelegenheitsanzeigen in „Compute mit... 





Programme 


m 


Zur Zu} 


Korrekturen 


The little Puck goes home für C-64 in Ausgabe 6 


Die Ladeanweisungen sind mißverständlich erklärt gewesen. So starten Sie den LITT- 


LEPUCK richtig: 1. Abtippen des Gesamtprogramms; 2. abspeichern; 3. dieangegebe- 
nen Pakehefehle im Direktmodus eingeben; 4. das Programm neu laden und Starten; 
5. das Programm mit LOAD"PUCKN6400)”, (Gerätsadressa),i laden und mit SYS16400 
starten. 


Tips und Tricks für den VC-20 in Ausgabe 5, S. 22 


in der Programmzeile 90 befindet sich ein Dreher! 
Richtig lautet sie: 90 POKE A+4609:PEEK(A+4609)+18 





930 LOCATE FERLE,17:PRINT CHRS$ (746) 

940 GRUB1=INT (RND*320+7) : GRUB=INT (RND#+Z0+ 

M:LOCATE X,17:PEN 3:PRINT CHR# (244) ; CHR 

$(244)=LOCATE X1,17:PRINT CHR$ (244) ; CHR$ 

(244)=:PEN 25LOCATE GRUB1,17:FRINT CHR$ (2 

50) ; CHR$ 1250) ;s CHR$ (250) :LOCATE GRUB,17:P 

RINT EHR$ (250) sCHR$ (250) 3; CHR$ (250) 

7590 FRINT CHR$LZZICHR# (12 

9680 PRINT CHR$ (22) 5; CHR$ (1) :LOCATE 1,1:PE 

N Z=:PRINT "Lives: ";LEBENSLOCATE 20,1:PRI 
weiter Seite 62 


% Kleinanzeigen % Kleinanzeigen 








Datum 


Ich wünsche folgenden Text. zu veröffentlichen: 
el jet 1 belinbehsjshelef st Der ee] 
a N Dr RC a U LT a VER a EU ei Fe re IE ZT 





taktaufnahme bzw. Erfahrungs- 
austausch usw. 

Unser Preis für „Kleinanzeigen": 
Private Kleinanzeigen 

















bis 5 Zeilen nur DM 5,- DM 

bis 10 Zellen nr D’M10)-DM = --- --- -- -- -- - - --—- —-  - - - - - 1... - 

Jede gewerbliche Gelegenheits- ai Fee Je a ae I a RE RE EN 

anzeige 

bis 10 Zeilen  nurdsenm 4ÄÄLIIILII I LEI IE ILL 

(dürfen nicht unter Chiffre er-- [Te SINE IE RE ER N ER I I RE N TR WR RD HE | 

scheinen) ErSeere)  eee  eee 

Eine Veröffentlichung erfolgt nur Fe 

N ae pe | ty Ilse Pl Veh Peer 

gegen > } { Zutreffendes ankreuzen 
Kleinanzeigen jetzt suche © Software suche © Hardware O Tausch © Versch. 
noch preiswerter biete an DO Software O Chiffre 


biete an O Hardware O Kontakte 






Compute miß 





















kleinanzeigen 


Biete Software 


Über 1300 Spiele und Anwen- 
derprogramme für Ihren C-64 
gegen Unkosten abzugeben. 
Liste mit Preisangabe kosten- 
los. A. Wittgen, Postlagernd 
073861 C, 5060 Bergisch 
Gladbach 1 


Verkaufe original „PROTEXT*- 
Textverarbeitung für Commo- 
dore 128 mit Handbuch für 40,- 
DM. Tel. 0561/8986933. 


C16/116/4 PLUS/VC-20/C-64 
Fibu, VE/EK, Foto-, Film-, Video- 
Musikarchive, Lotto, Adress, 
YSi Tabello, Digitalo, Spielepa- 
| kete, Kartei, Biblo, KFZ, Denk- 
| training Lernprogramme, 
| Handbücher, Staubschutzhau- 
be ab 9,90 DM. Katalog gegen 
80 Pf-Marke. 
Computerservice T. Hofstede, 
A.d.Windmühele 8, 5010 Berg- 
heim 5. 








c-84! Nur I DM je Programm! 6-64! 
‚Clubsoftware (Anwender-, 
Spiel- Lern-, Denk- und Musik- 
programme gegen Kopierge- 
bühr von nur 1 DM abzugeben. 
2.B. Vokabeltrainer, Astrologie- 
progr. mit Bildschirm- u. Druk- 
kerausgabe, Synthesizer, Bio- 
rhythmus, Actionspiele und 
Hilfsroutinen. Kein Schund! in- 
fo (Rückporto. VERASSOFT, 
Nerthastr. 26, 8 München 19 


% Ci6/116 % Grafikprogramme 
#* Mini-CAD, sichern, laden%& 
Y * und weiterbearb. d. Grafi-# 
%* ken; Info gegen Porto; M. % 
% Rätzel, Ulvenberastr. 6, D-* 
#* 6100 Darmstadt war AA 


Hallo C16 Fans und 116 Plus 4 
Ich habe für Euch den Automa- 
ten Super 7 programmiert, 

| Cassette + Listing DM 10,- 
Schein Stichwort S7, Rolf Lee- 
semann, Feldstr. 40, Postfach 
3172, 2300 Kiel 1. Lieferung: 
5 Tage. 


Über 1300 Spiele und Anwen- 
derprogramme für Ihren 0-64 
gegen Unkosten abzugeben. 
Liste mit Preisangabe kosten- 
los. A. Wiltgen, Postlagernd 
073861 C, 5060 Bergisch 
Gladbach 1 





Info gegen Rückporto bei Han- 




























"GRAMM 10 DM bei Cas., 25 DM 



























































C-16/C-116 Superspiee! ®% | CPC ® TDP-SOFTWARE © CPC 
@®@ Biorhythmus-Toial @ ® 
Läßt vergleichbare Programme 
erblassen, 
schirm, doppelte Grafik, Ver- 
größerung, sehr komfortabler 

. Ausdruck —- Ein Monat ca. 8 


nes Kaltenbach, Prielmayerstr. 
16, 7990 Friedrichshafen 1. 


C-16/116 # Plus 4 & C-16/116 
Software ? - na klarl 


- Grafik DIN-A4-Seiten mit sehr aus- 
-Sound führlichen. Erläuterungen und 
- und für die Schule 


Hardcopy für Grafiken. Zusätz- 
lieh können Parinerschafts- 
analysen erstellt werden; eben- 
falls mit ausführlichem Aus- 
druck. Interessante Nebenver- 
dienstmöglichkeiten bietetdie- 
ses Programm, das sich auf 
rein wissenschaftliche Grund- 
lagen und Erfahrungen stützt 
(49K). Bestellungen unter Nr. 
0961 gegen Vorkasse bei Hil- 
terscheid, Ludwig-Rosenberg- 
Ring 47,2050 Hamburg-80, Tel. 
040/7 211974, Gass. DM 30,-, 
Disk DM 40,- ; 


Eine ausführliche Info gibts ge- 
gen Rückporto bei: 

B. Lauer, Handgasse 10, 8700 
Würzburg. 


®©® 988 C-16/6-116 0 @ 0 ® 
Spiele, Anwender-Progr. 
Softw.-Schutz{Broschüre), 
Turbo-Tape (3600 Baud) zu ver- 
kaufen. Alle Programme auf 
Cassette. A. Lämmerzahl, 
Saarstr. 85, 4100 Duisburg 17. 
Ruf: 02136/113994. 


VC-20 Spitzenprogramme 
für 6V, 8K und 16K. Liste für 
nur 50 Pfe-Briefmarke bei 
M. Platt, Carl-Orff-Sir. 4, 
8721 Hambach! Jetzt 
preiswert: Zentrax (16K). 
Ein S.F-Abenteuer mit 
herrlichen 3D-Bildern. Nur 
180 DM. 3 Actionspiele für 
die 6V, nur 14 DM! 

Super Spiele -superbillig! 








C-16/C-116/plus 4 
Musikcompiter für Inter- 
ruptgesteuerte Musik; 
Sonderzeichen für Ihre ei- 
genen Programme; Voka- 
beiprogramm mit französi- 
schen Zeichen; Spiele; 
Lernprogramme etc, Liste 
anfordern! BILLIG PREISE! 
Tel, 02581-6715, M. Suer, 
Walgernweg 22, 4410 Wa- 
rendorf 1 


C16/116 # C16/116 * C16/116 
Das erste Gaphic-Adventure 
„Die Jünger des Todeslichtes“ 


%* C-64 # Spitzensoftware * 
Akute 
Adressenverw, (D) 12,95 
Videokass.-Verw. (D) 12,35 
* Jed. Prg. auf Disk+ Hand- 
buch. Info geg. 80 Pf. Preis per 
NN+Porto bei: Michael Rau, 
Hüheweg 46, 8580 Bayreuth. 
22 2 5 25 20 25 5, 


C-16/116 %* C-16/116 ACTION 
Bei mirgibtes Topspiele fürnur 
20,- DM. Diesen Monatsind es: 
PENGO, TERMINATOR, SHAO- 
LIN, BOMBER, DALLAS. Den 
Bestellungen bitte Schein oder 
Scheck beilegen. Bestellun- 


rden C-16/116 istda.14 Seq.a 
2KB = 168 KB. Preis? Ganze 
20,- DM. Bestellen bei: Jörg 
Kowalski, Bickemstr. 161, 4650 
Gelsenkirchen. Oder Info ge- 
gen Rückporto. Nur als Casset- 
te lieferbarli 


Für alle Schneider-Besitzer & 
Verkaufe ich viele Splelpro- 
gramme., Preisliste u. Beschrei- 
bung gegen Brieimarke. Keine 
Raubkopien! K Ley, Postfach 
2124, 2390 Flensburg. 


VC-20 # vr yo te ar O6 


Neue Liste Spiel + Anwender- “gen bitte an: Roland Fuchs,- 
software. Info bei: Bianckenagelweg 9, 4770 
Volker Coert, Söllingstr. 4-8, | Soast/West. PS. Tausche 


auch. Angeben ob Diskette 


4300 Essen 1. Bitte Rückporto! 
oder Kassette. AAhArar 


EPG A464 * CPC 064 % CPC 6128 
Verkaufe super CHEMIEPRO- %+C16/116 X Grafikprogramme 
Mini-GAD, sichem, laden ® 
bei Disc. Tausche auch Pro- 
gramme. Liste an: Holger Groß, 
Am Ginsterberg 13, 6630 Saar- 
louis 4 


* ken; Info gegen Porto; M. & 
* Rätzel, Ulvenbergstr. 6, D-* 
* 6100 Darmstadt wer kw" 





Gompuhe mih 


Exklusiver Bild- 





.g 










% und weiterhearb. d. Grafi-*. 


Tausch-Biete G-1B/116 Software 
C-16/116 
6-16/116 
G-16/118 
Tausche - Biete C-16/C-116 
oftware. Habe Utilities, Text- 
verarbeitung, Plotterfunktio- 
nen, Mathematik, Knobeleien 
u. a. nützliche (I!!!) Program- 
me: Info bei St. Sedlaczeck, 
Florastr. 11, 5063 Overath 


Biete Hardware 


kı% C-16 Hardware a Aa % 
% 16K Ram Erweiterung 89-8 
# 64K Ram Erw. (nur C16) 169,- Wr 
% Joystickadapter 10,-# 





ki C-16 Software Add 


3 Favourite 4 (Sammlung) 30,- Wr 
# Plus Paket (Sammlung) 30,- 
%* Turbo Tape 15,90 & 


%* Tel. Best. 07307/6230 
% Camp. Service PF1304 7913 Senden Fr 


%* Commodore Hardware #* 
#% Drucker Gomrex CR220 349,- % 
% Drucker Star Gemini 10x 578,- * 


% Oki 182 798,- & 
% Schutzhaub. 664/016 ab 12,90 # 
#* Schutzhauben 0128 15,90. # 
* Joystick Quickshot Il 1990 8 
* Disketten Select 2D 27,90 # 


# Tel. Bestellung: 07307/6230 * 
% Comp. Service PF1304 7913 Senden Ar 


Für VC-20: Biete 24KB Erweite- 
rungsmodule an. Schaltbarvon 
3KB bis 24 KByte. Preis: 90,- 
DM. Informationen gegen 
Rückporto, Friedel, Heinz, An 
der Halde 43, 4330 Mülheim- 
Ruhr. 


Commodore C-16 + Datasette 
+ Basic-Lehrbuch und Kasset- 
te incl. Garantie bis 30.9.1986 
nur DM 189,-!!!# # # Commo- 
dore C16 Speichererweiterung 





nur DM 79,- incl. Einbau und 


Funktionsgarantie auf 60671 
Bytes freel! = Selbstkosten- 
preis. 128 K für C-16 in Kürzel! 
Info: Tel.:06201/69189 X k # 
Anwender- u. Spiele-Software 
vorhanden, 


%* Hallo C-16 Besitzer # 
% Wie: währe es, wenn Sie ihr #r 





% 6-16 nach dem Einschalten so #* 


begrüßt % 


N 
‘kt 60671 BYTESFREE # * 


# info gegen Freiumschlag Wr 
#% Markus Antel, Buchenweg 14 
%* 8205 Kiefersfelden % 
kur 
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, 17, Tel. 


. dene Programme. (DM 250) -5 
- Monate alt). An Jan Linek, Blu- 
 ‚menthalstr. 9, 8500 Nümberg 
80, Tel. 0911/2632886. 








Ba Ci6/116 Besitzer 
. 'Speichererweiterung 84K 


(60671) Bytes free) zum Super- 


Fpreis von 59, 50DM+5DMf. 
. Porto u. Verpackung. (Muß ein-: 
- gebaut werden, Bauanleitun 


liegt bei). Martin Brüggemann, ' 


Bachstr. 10, 5940 Lennestadt 
82827. 
Verkaufe wegen Systemwech- 


sel Commodore C-16 mit Data- 


sette u. Joy-Adap. v. verschie- 


\ Verkaufe Schneider CPC 464. 
Mit grün Monitor und 5 Pro-' 
grammen wegen Systemwech-. 


. sel zu verkaufen. Preis: VB. 


Frank Siegel, 07021/6724 


Akt 
% ACHTUNG C16/C116 Be- # 
% sitzerl! Endlich ist er da, # 
% der Professionelle Joy- # 
% stick-Adapter, fürnursage % 


' rund schreibe 9,95 DMund # 


% wo: Fa. H.PT. Electronic &#/| sypeR ANGEBOTM Biete den 


% Co, Am Rain 23-27, 8024 & 
% Deisenhofen, Tel, 089/* 


# 6134120 %“ 


% Nur solange Vorrat reicht. ® 
Ahr aehahh 


Verkaufe Commodore 128 PC, 
‚Floppy 1571, 


Monitor 1901, 
Drucker MPS 803 komplett 
2.000,- Neuwert 3.700,- alles 
erst 2 Monate alt. Abgabe we- 
gen Bundeswehr. Dazu gratis 2 
Joystick + 40 Disketten mit 
Box. Programme wie Nord Star, 
Datamat, Protext, Winter Ga- 
mes usw Markus Jung, 


- Schmachtendorfer Sir. 158, 
4200 Oberhausen 11,@0208/, 
682367 


- Verkaufe VC-20, VC-20 + Data- 
 sette + 16K. Erw. 9 Kassetten 
- (Superspiele) z. B.: Choplifter, 


Spuckhaus, Schaelt, Fire Gala- 
xy. Preis: 260,- (VHB). 


- 181.06543/2984 von 16 bis 20 
‚Uhr. 





Verkaufe Commodore CBM 


‚8032, DIN-Tastatur 8250 Dual 
‚ Floppy, Matrixdrucker itho 1550 


Incl. Interface + D-P-Kabel su- 
‚pergünstig! Schmeding, Sach- 
'senstr. 5, 4980 Bünde, Tel. 
05223 710971 














Ab 16 Uhr 027217 _ 









# VC-20 * SUPER & C-54 
% VC-20 - Speichererweite- & 
# rung 32 KB; Insges,ä.B 27 
%* 5K für Basic, 11K für MG-*# 


- % Prg’s. 1IMCL. 3K-Bereich!!! # 


%* Der Preis; nur 70 DM! Au-* 


* Berdem Relais-Interface# | 


% B8xUM für C-64 oder VC-# 
# 20! Mit Resettaster nur50 # 
# DM! & Melden bei: Sven # 
# Rakers, Feldweg 10, 4425 # 
% Billerbeck, Tel. 02543/% 
% 4238 % 


%* C16/C116 Ram-Erweiterung! 
je = ze Ge I ee) 


C16/116 60671 Bytes free für 
DM 97,80 - Alle Ports frei - kei- 
ne Einschränkungen — incl. 
Umbau # Computer ohne zu, 
behör mit 100,- DM (2, 20fürdie 
Post) an: Elektronik-Technik, 
Tannenweg 9, D-2351 Trappen- 
kamp 


Verkaufe Drucker Seikosha 
GP-100 VC für Commodore 
150,- DM und dazu Eprom mit 
deutschem Zeichensatz auf 
Sekundäradresse 7 für 30,- 
DM. Tei.: 0561/898633. 


Schneider CPC 464 und Dis- 
kettenlaufwerk für 2000,- DM 
(Festpreis) ar. Mit Anleitungs- 
büchern für Computer und 
Floppy. Geeignet für Anfänger: 
Meldet euch bei: Oliver Ihnıs, 
Rispenweg 21c, 2000 Hamburg 
53, Tel. 040/842405. Eittt 
Zwecks Systemwechsels. | 


+++ + Suche VC-20 ++ ++ 
+ möglichst mit Cassetten- + 
+ laufwerk ohne Joystick. + 
+ K.H.Wendelstein, Her- + 
+ mann-Löns-Straße 31, Tel.: + 
+ 07123/14513, 7430 Met- + 
+ zingen. + 
+trtrtrtrtrttrtrrtrrtrrtrHr 


Suche für den VC-20 „POLE 
POSITION, FLUCH DES PHA- 
RAO." Außerdem viele Action- 
und Starspiele, Tausche auch. 
Biete für original Modul „Pole 
Position“ bis 30 DM. 

Brauche auch Anwendung- 
sprogramme, Floppy, Akustik- 
koppler, Drucker und Videoka- 
mera zu vernünftigen Preisen. 
Tel.: 08459/1536 


UTTT 


kleinanzeigen 


C-i6: Suche Kassetten-An- 
wenderprogramme (keine 
Spiele), 64 K-Ram realislert. 
Suche auch jegliche Tips zu 
Hardware-Erweiteringen. 
Freundliche Angebote bitte mit 
kurzer Beschreibung an: Ulric! 
Vollmer, Prökelmoor 1, 2000 
Hamburg 71. 


Suche Diskettenlaufwerk für 
©-16. Tel. 04531/3213, Amo 
Fenske, Berliner Ring 35, 2060 
Bad Oldesloh. 


Suche Joysticks oder Adapter 
+ Joysticks, um Commodore 
C16 bedienen zu können. 


Suche wenig gebrauchten 
Drucker für Commodore C-16/ 


116+ 64 und Joysticks für C-16/ 5 
116. Klaus Michel, 3565 Brei-’ ' 


denbach. 


C-16 # C-16 # C-16 # C-16 
Suche ein gebrauchtes, nicht 
zu teures Diskettenlaufwerk für, 


den Commodore 16. / 


Angebote bitte an die Tel.-Nr; 
5-0 7758/2505. Es EILTIIN!M 
Verkaufe Plotter/Printer 1520/ 
Neu SCHNELLIHNT 


Gub- . 


Nachrichten 





Geschenkt ist das nun wirklich 
schon! Für nur 5,- monatlich 
könnt ihr Mitglied im VIG-20- 
Club „VIC-Freaks“ werden. Da- 
von wird die umfangreiche 
Clubzeitung mitmassenhaftLi- 
stings, Tips und Tricks usw. fi- 
nanziert, Zusätzlich erhält je- 
des Mitglied monatlich 6 Com- 
Puterprogramme, Überra- 
schungspakete selbstredend. 
Keinen Schund, sondern harte 
Actionspiele in Maschinen- 
sprachell! Jedes Mitglied hat 
ebenfalls Zugriff zu den circa 
800 Computerprogrammen der 
VG-20-Clubs, und es werden 
täglich mehr. Für einen lächerli- 
chen Unkostenbeitrag von 5 
DM bekommt ihr ein Informa- 
tionspaket auf Band, sowie 
massenhaft Spiel- und Anwen- 
derprogrammel! Erstgenann- 
tes überwiegend! 

Also Freaks, stürzt Euch aufdie 
Kulis und schreibt an A. Spind- 


GSomputs mib 







ler, Moschstr. 10, 6522 Ostho- 
ten, Telefon 06242/3390 
AUCH NICHTMITGLIEDER 


"KÖNNEN MITUNS TAUSCHEN! 


“ Der C-64/VC-20-mini-club be- 


steht seit April 1984. Ursprüng- 
lich war er für C-64 und VC-20 
Anwender gedacht, doch in- 
zwischen haben wir auch C- 
128 und neuerdings auch C-16 
User unter unseren Mitglie- 
dem. Unsere Mitglieder sind 
über die gesamte Bundesrepu- 
blik vertellt. Kontakte zu ande- 
ren Computer-Clubs betreiben 
wirebenfalls. Eswäre also auch 
schön, wenn ändere Clubs mit 
uns Verbindung aufnehmen 
würden. 


, Das Alter unserer Mitglieder 


gehtvon 12 bis 65 Jahren, istal- 
so breit gefächert. Unser Bei- 
trag beträgt 2,50 DM im Monat. 
Dafür bekommt man vorert alle 
zwei Monate unsere Clubzeit- 
schrift bzw. in zeitschriftlosen 
Monaten unsere Clubnach- 
richten. Eine Mailbox ist in Ar- 
beit. Weitere Themen sind un- 
serClub Funk, indem man auch 
mal akustischen Kontakt der 
anderen Mitglieder mitbe- 
kommt. Weitere Fragen oder 
sonstiges werden beantwortet 
unter der Nummer 02151/ 
735946. Info (kostenlos) erhält 
man beim C-64/VG-20 mini- 
club, Postfach 1314 in 415 Kre- 
feld 29. 


Verschiedenes 





%* C-64 # Spitzensoftware 
khaki 
Adressenverw. (D) 12,95 
Videokass.-Verw. (D) 12,95 
%* Jed. Prg. auf Disk+ Hand- 
buch. Info geg. 80 Pf. Preis per 
NN+Porto bei: Michael Rau, 
Hüheweg 46, 8580 Bayreuth. 

0.2 2 2 2 2 2 2 2 2 2 5; 


616/116 # C16/116 # C16/116 
Das erste Gaphic-Adventure 
„Die Jünger des Todeslichtes" 
fürden C-16/116 ist da. 14 Seq. a 
12KB = 168 KB. Preis? Ganze 
20,- DM, Bestellen bei: Jörg 
Kowalski, Bickernstr. 161, 4650 
Gelsenkirchen. Oder Info ge- 
gen Rückporto. Nur als Casset- 
te heferbart! 








programme 


NT "Score: ";SCORESLOCATE 1,5:FRINT "Scere 
en: ";HOEHLE 

970 

980 LOCATE XM,14:PRINT CHR$ (230) : LOCATE 
KM,ISs PRINT CHR$(Z31):LOCATE XM,16: PRINT 
CHR& (232) 3; CHR$ (240) : LOCATE _XMs 17: PRINT 
CHR$ (233) EL LOGATE XM„18: 

990 STEIN=INT(RNDX2) 3 »5STEIND=INT (RND#=2Z) :W 
URF=INT {RND+2) 

1000 IF STEIND=1 THEN LOCATE 38,15:PEN 1 
PRINT CHR&(2F7)=PEN ZsLOCATE 38,156: PRIN 
T CHR$ (238) :PEN 1:LÖCATE 38,17: PRINT CHR 
$(239) ELSE LOCATE 38,15: PRINT " "sLOCAT 
E 38,16:PRINT " "sLOCATE 58,17:PRINT "” * 
1010 PEN FZ:IF steino=1 AND wurf=1 THEN L 
CCATE 37,163FEN 1:PRINT CHR$(229);FOR KO 
PF=34 TU 3 STEF -1:LOCATE KOPF,14:FRINT 
CHR$ (234) sCALL &BEDIS:PRINT CHRS& (22) ; CHR$ 
(O0) 250UND 1,15,1,2:5L0CATE 37,16: PRINT " 
"- IF KOPF=XM AND YM=14 THEN WURF=0: STEIN 
0=0:60T0 1149 

1020 PRINT EHR# (22) 53 CHRE#1O) PEN 1:IF STE 
IN=1 THEN STEINE=XM:FOR STEINF=& TO 16:L 
OCATE STEINE ,„STEINPF=FRINT CHR$(ZA42) :CALL 
&BD18:50UND 4,0,2,6,0,0,30 

1030 IF INKEY(7=)=0 THEN G0TO 1270 

1040 IF INKEY(76)=0 THEN GOTO 1350 

1050 IF INKEY{74)=0 THEN GOTG 1310 

1050 IF TIME-OT>5700 THEN GOTO 1440 

1079 IF XM=PERLE THEN SDOGRE=SCORE+100: FO 
R SOUNTE=1000 TO 1 STEP -15:50UND 2,50UN 
TE,1,7,0,0,20:3NEXT SOLNTE:PERLE=1 

1080 IF XM=X OR XM=X1 DR XM=X+1 OR “M=X1 
+1 THEN 1480 

1090 IF XM=ERUE OR XH=GRuB+1 DR XN=GRUB1 
OR XM=GRUBIi+1 OR XM=GRUB+2 OR XM=GRUBIi+ 

zZ THEN 1149 

1100 IF STEIN=1 AND STEINK=XM AND STEINP 
+14 AND STEINF<{I1&4 THEN 11680 

1110 IF XM=FERLE THEN SCORESSCORE+100:FO 
R SOUNTED=1000 TO ti STEPF -13:SQOUND 2,50U 
NTED,1,6,0,0,12NEXT 

1120 IF steinp<17 AND STEIN=1 THEN LDCEAT 
E STEINK,STEINP=SFRINT " "=NEXT STEINP 
1130 IF STEIN=O AND STEINdD=1 AND WURF=1L 

THEN LOCATE KOPF,15:PRINT " ";:NEXT KOPF 
1140 GOTO 990 

1150 "LEBEN VERLOREN 

1140 INK 0,0: 

1170 FOR WAITED=-1 TO 50 

1180 BORDER INT <RND*26) 

1190 SOUND 1,2000,1,7,0,0,20 

1200 NEXT WAITED 

1210 BORDER O: INK G,ZUF 

1220 LEBEN=LEBEN-13 

1230 IF HOEHLE>8 THEN HDEHLE=S: SCHWERT=O 
» SCHWERTP=O 

1240 IF LEBEN=O THEN INK 0,11:1Nk 1,26:1 

NK 2,&:PEN 2:PAFER 0:MODE O:FRINT=:PRINT 
"Leider verlaren!!{!t"zPRINTIPEN 1:5FRINT 
"Scores "Iscore:PRINT:FEN 14zPRINT "Press 
£TARl t0*":FRINT=PRINT "restart or ’E' t 

o"=PRINT:PRINT"end!” ELSE 830 

12509 IF INKEY$="" THEN 1250 


GSompute mib 


1250 IF INKEY(&B)=0 THEN RUN ELSE a$=LOW 
ER${INKEY$)ISIF a#="? THEN 1280 ELSE IF a 
$="e" THEN CALL %BBFF:CALL %BBA4E:END ELS 
E 1280 

1270 LOCATE XM,14:FRINT " ":LOCATE XM,1i5 


sFRINT " "3LOCATE XM,issPRINT " "zLOCAT 
E XM,17:PRINT CHR$ (244) 250UND 1,0,2,5,05 
0,20 


1280 XM=XM+1zLOCATE XM„i4: FEN 2:FRINT CH 
RE£(230) 2LOCATE XM,15:PEN 1:PRINT CHR$(25 
1):LOCATE XM,„i1&:PEN 2:PRINT CHR# (232) 5CH 
R$ (240) :LOCATE XM,1L7:PEN 1:PRINT CHR$(23 
P:CÄLL &BD18:LOCATE XM,17:FRINT CHR& (20 
1) 

1290 IF XM+37 THEN HOEHLE=HOEHLE+1:60TO 
1430 

1300 SATD 1040 

1310 LOCATE XM,14=PRINT " ": z LOCATE xM,„15 
PRINT " ":LOCATE XM,165:PRINT " "2 LOCAT 


E XM,17:PRINT CHR (244) SOUND 1,0,2,3,0, 


0,20 

1320 XM=XM-1:IF XM<$ THEN HDEHLE=HOEHLE- 
1:G0T0 1430 

1330 FEN 2Z:LOCATE XM„14:FRINT CHR$ (202): 

PEN 1:LOCATE XM,15:PRINT CHRE(20F):PEN 2 
:LOCATE XM,is:FRINT CHR#(204) : LOCATE XM, 
17:PEN i1:FPRINT EHRF(2IFI:CALL &BD18:L0OCA 

TE XM,17:2PRINT CHR#I2091) 

1340 GOTO 10950 

1550 LOCATE XM,14:FRINT " ":LOGATE XM,15 
:PRINT " ;LOCATE XM, 16: PRINT " "zLOCAT 

E XM„17:FRINT CHR$ (244) 

1340 IF XM=SCHWERTF THEN GGOTG 1520 

1370 XM=XM+S: IF XM>37 THEN HOEHLE=HDEHLE 

+1:G0T0 1430 

1590 LOCATE XM,10sPRINT CHRE (239) : LOCATE 
XM,11:PRINT CHRE(Z3I1):LOGATE XM,„12:PRIN 

T CHR&{2372) 3; CHR$ (240) = LOCATE XM, 13; PRINT 
CHRE& (245) 

13908 FOR SOULNTE=1 TO 1000 STEF 20:SDUND 

4,SQUNTE,1,7:NEXT SOLUNTE: 

1400 LOCATE XM,1O:PFRINT ”" "sLOCATE XM,„11 
:PRINT " "sLOCATE XM,i2:PRINT " "SLOCAT 

E XM,13>PRINT " ” 

1410 LOCATE XM,„1i4:FRINT CHRE$ (230) :LOCATE 
xM,„15: FRINT CHRE (231) 2 LOCATE xM,1&4:PRIN 

zw CHR$ (232) + CHRS$ (240) 5 LOCATE XM,17:FRINT 
EHR$ (233) 3 

1420 GOTO 1050 

1430 BORDER 6,1:FOR SOUNTED=1000 TO i ST 

EP -5: INK 0,INT<RND+Z3) :SDUND 2,SOQOUNTED, 
1,7:NEXT SDUNTEDSs 

1440 IF HOEHLE<I THEN HOEHLE=1 

1350 IF HOEHLE<>9 THEN SCHWERTP=O: SCHWER 

T=0:G0T0 830 ELSE IF SCORE>800 THEN 1510 


ELSE SO00G 

1460 

1470 LOCATE XM,14:FRINT " "2LOCATE XM,15 
sPRINT " ":LOCATE XM,„16:FRINT " "=LOCAT 


E XM,17:PRINT CHR$ (244) :LOCATE XM,16:PRI 
NT CHR# (248) 2 LGOCATE XM,„17:PRINT CHR$ (249 
IıFüRk WAITED=1 TO 5004 NEXT WAITED:GOTO 1 


140 
14580 FEN 1:LDCATE XM,14=:PRINT " ":LOCATE 


7/86 


SM EEE... nu 








XM,1S:PRINT CHR$(253):PEN S:LOCATE XM,1 
‚6:PRINT CHR$(252)5" "2LOCATE XM,175PRINT 
CHR$ (251) 

1490 FOR SOUNTED=2000 TO 1000. STEF -20:5 
1 OUND 2,SOUNTED,1,7,0,0,1:NEXT SOUNTED 
1500 FOR WAITED=1 TO SOO:NEXT WAITED:SOT 
0 1140 

| 1510 SCHWERTP=INT (RND#30+7) :SCHWERT=1:MO 
| DE 0:PEN 3:BORDER 24,2:INK O,1:INK 4,2,2 





\ 
| 4: PRINT" ACHTUNG !t 
I "PEN 4:PRINT"Letzte Hoehle !!!"sFOR WAI 
| TED=1 TO 1500:NEXT WAITED:MODE I:PEN 3:6 
-| 0T0 830 
I 1520 IF SCORE<700 THEN HOEHLE=S: GOTO 830 
1 1550 "ALLE HOEHLEN DURCHQUERT 


| 1540 
{| 1550 
1560 
1570 


RESTORE 1600 

tempo=12 

status=1 

WHILE status<>0 AND NOT brk 

1580 READ status,tone,duration . 

1590 SOUND status,tonre,INT (tempo#duratio 
n*0.8334) „13 

16800 WEND 

| 1610 DATA 49,159,2,42,190,2,28,239,2 

| 1620 DATA 17,190,1,10,239,1,49,179,2,42, 
213,2,28,239,2,49,159,4,42,190,4,29,239, 
4,49,159,2,42,190,2,28,239,2,49,142,2,42 
‚179,2,28,239,2,49,159,2,42,170,2,28,239 
‚2,49,142,2,42,179,2 

1630 DATA 28,239,2,49,124,2,42,159,2,28, 
201,2,17,159,1,10,201,1,49,1590,1,432,17%, 
1,28,201,1,49,134,4,42,159,4,28,201,4,49 
j „134,2,42,159,2,28,201,2,49,119,2,42,150 
| „2,28,201,2,49,134,2,42,159,2 

1640 DATA 28,201,2,49,119,2,42,150,2,29, 
- 201,2,49,113,4,42,134,4,28,169,4,49,115, 
1,42,134,1,28,169,1,49,134,1,42,169,1,28 
„239,1,49,113,2,42,134,2,28,169,2,47, 106 
„4,42,134,4,28,179,4 

1650 DATA 49,106,1,42,134,1,28,179,1,49; 
134,1,42,179,1,28,213,1,49,106,2,42,134, 
2,28,179,2,49,106,4,42,127,4,28,159,4,49 
| ,106,1,42,127,1,28,159,1,49,127,1,42,159 
„1,28,213,1 

1660 DATA 49,106,2,42,127,2,298,159,2,47, 
100,4,42,127 ‚4,28, 169, 4, 49, 100,1,42,127, 
4, 28, 169, 1,49,127,1, 42, 169, 1.28, 201 „1,497 
„100,2,42,127,2,28,169,2,49,95,10,42,127 













CHECK Vi: PRUEFSUMMEN: 350- 360: 49494 770- 

| '370- 380: 91184 790- 
| ZEILENNR.: SUMMEN 390- 400: 16957 810- 
10- 20: 13944 410- 420: 22383 B30- 

30- 40: 40890 430- 440: 70152 - 850- 

50- 850: 33923 450- 460: 2052B 870- 

1 70- 80: 45169 470- 480: 22587 B90- 
j 90- 100; 33808 470- 500: 482597 910- 
— 410- 120: 40066 510- 520: 407TA 930- 
\  130- 140: 43124 530- 540: 32276 950- 
in 150- 150: 25333 S50- 540: 59846 970- 
FB 170- 180: 54895 570- 580: 26914 990- 
Ei 190- 200: 43049 SI0- 600: 78843 1010- 
I 210- 220: 64982 6&10- 820: 55808 1030- 
230- 240: 27451 630- 640: 77584 1050- 
ji 250- 260: 39871 650- 660: 38502 1070- 
| 270- 280: 64674 670- &80: 56232 1090- 
| 290- 300: 30776 690- 700: 60025 1110- 
| 310- 320: 22458 710- 720: 21858 1130- 
| 330- 340: 78744 7350- 740ı 37825 1150- 
a 750- 760: 55414 1170- 


Programme 


‚10,28, 150, 10,0,0,0 

1670. MODE 1:INK O0,1:BORDER 135:PAPER O0: IN 

K 1,5:INK 2,185 INK 3,2,1 

16880 PEN 3:PRINT"Herzlichen Glueckwunsch 
te 

"sRPEN 25PRINT"Sie haben es geschafft 10 

Hoehlen zu 

":PRINT”durchqueren. ” 

16579 LOCATE 1,7:PRINT "Sie erreichten”:P 

EN 1:L0CATE 15,7:PRINT scoresPEN 2:5LOCAT 

E 22,7:PRINT "Punkte. ":PEN 1:PRINT "==== 


1700 IF SaCk)<>4 THEN 1700 ELSE CLEAR 
17109 FOR A=1 TO 340 

1720 MOVE 300,100 

1730 PLOT FS00+10085IN(A) ,1O0+90*C0OS (A) „I 

NT (RND#4)} 

1740 DEB:NEXT . 

1750 MOVE 230, 140:DRAW 295, 270 sautuyE 37, 

6,160: DRAW 305, 270 

1760 MOVE 250 „20: DRAW 295, 100: MOVE 350,2 

O:DRAW 305,100 

1770 LOCATE 17,242 PRINT CHR$ (253) : LOCATE 
19,232 PRINT CHRS$ (232) 3 CHRE (240) > LOCATE 
19,22>PRINT CHRFLZ31I:LOCATE 197,21: PRINT 
CHR$ (230) 

1780 FOR A=1 TO 360 

1790 DEG 

19800 MOVE 509,100: 

1810 PLOT 300+10*C05(A} ,100+10#45IN{A) ‚1 
1820 NEXT 

1930 FOR DUR=1 TO 150:FOR P=1 TO 3:FARB= 
{RND*25) +2 » 

1840 INK P,FARB=NEXT P,DUR 

1859 LOCATE 1,10:PRINT "Nocheinmal 8 j/n> 
rl 
1850 

oO 
1870 
1880 


AS=UFFERSINKEYEI: IF A$="" THEN 185 


IF As<>"J" AND as<y>"N" THEN 1860 

IF As="J" THEN RUN ELSE CALL ZBBFF: 
EALL &BBZE:MIDE 1:END 

50000 "ZUWENIG FUNKTE FUER LETZTE HOEHLE 
50001 MODE 1:80RDER 5,5: INK O,„2:PEN 1:PR 
INT "Ihre Punkte reichen nicht aus, 
":FRINT "deshalb koennen Sie ab der 5. 
":PRINT "Hoehle weitere Ferlen einsammel 
n":FOR waited=1 TO 2000:NEXT waited:hoeh 
le=-5:607T0 8270 


11413 


780: 65001 1190- 1200: 1610- 162097 34014 
800: 47579 1210- 1220: 24245 16839- 16403 29920 
820: 68127 1230- 1240: 93130 1650- 16601 42907 
840: 84255 1250- 1260: 3111 1670- 1480: 71680 
860: 65956 1270- 1280: 100254 1690- 1700: 56292 
880: 35004 1290- 1300: 636458 1710- 17208 8958 
900: 46466 1310- 1320: 108674 1730- 1740: 15447 
9201111428 1330- 1340: 29145 1750- 1760: 56713 
940: 50648 1350- 1360: 47449 1770- 1780: 48827 
960: 633797 1370- 1380: 59715 1790- 1800: 1824 
990: 62700 1390- 1400: 74933 1810- 1820: 44292 
1000: 14522 1410- 1420: 10769. 18350- 1840: 54494 
1029; 29313 1430- 1440: 48620 1850- 1860: 57514 
1049: 25541 1450- 1460: 23158 1870- 1880: 74957 
10408 31195 1470- 1480: H0773 50009-500011 69760 
1090: 78345. 1490- 1500: 57428 -.-- 
11004 95034 1510- 1520: 797011 BESANTCHECKSUMME: 
11202 60497 1530- 1540: 23971 2061 
1140: 31204 1550- 1560: 14990 

11603 11543 1570- 1580: 76469 

1180: 21758 1590- 1600: 14570 


GSomputbe mib 


Nr 5 Junv/Jul 1986 8550 sir 6,- 'DM6- 


Das aktuelle Software-Geschehen auf, 
100 Seiten! Was man wissen sollte 


%* Was hat GARFIELD, der berühmteste’Kater " AN 
der Welt, Inder ASM zu'suchen? = 12 PAR FAN KalcHuli 
Lesen Sie Seite 46 = \ An ie Tips. + 
A ‚ Am Lösungen 
%* „LUCIFER'S REALM"- das 
verbotene Spiel ASM stellt 
es vorl.Serte 88 


%* „Volitreffer" - uf 2 
Pa fh 
Eu 


Die High-Score- f” A 
Liste Sejte 23 f } e 
52) E E 


Re 


1] 


’ 


115 Top-Games 
zu gewinnen! 


@ 100 Seiten Programme: im Test 
@® der Software-Markl auf'einen Blick 


® speziell gesuchte Software kann direkt beim Hersteller bestelli werden 


® ürofer Kleinanzeigenmarkt SE 
® tür alle Anwender von Heimeomputern 
x SS SR N a I _ = 
Tronic-Verlag GmbH - Am Stad 35 - 3440 Eschwege - Telefon: 05651/300 n 
N N N 
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